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written in the IBM System/360 FORTRAN IV lanquage. A 
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programmers who are familiar with the FORTRAN IV 
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PREFACE 



The purpose of this publication is to 
provide programmers with the information 
required to process FORTRAN programs under 
control of the Model 44 Programming System, 
The three steps involved in processing a 
FORTRAN program are compilation, editing, 
and execution. 



It is assumed that the reader is 
familiar with the FORTRAN language as 
described in the publication IBM Sys tem/360 
FORTRAN I V La nguage, Form C28-6515. No 
previous knowledge of the Model 44 
Proaramming System is required. 



This publication is not intended to be 
an exhaustive discussion of the 
capabilities of the Model 44 Programming 
System; only those features that will be 
commonly used by FORTRAN programmers are 
presented. A more complete description of 
system capabilities can be found in the 
publication IBM Syst em/360 Model 44 

Pro gramm ing System: Guide to System Use , 

Form C28-6812. 



The organization of this publication is 
such that the new reader is familiarized 
with programming system concepts and learns 
of the facilities available to him before 
encountering procedural details. The 
detailed information also serves as a body 
of reference material for the proarammer 
who is already familiar with system 
concepts. 
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INTRODUCTION 



The IBM System/360 Model 44 Programminq 
System provides a means for compiling and 
executing programs written in the FORTRAN 
IV language. Under control of the 
programminq system, a set of FORTRAN IV 
source statements is translated to form a 
module . In order to be executed, the 
module in turn must be processed to form a 
phase . The reasons for this will become 
clear later. For now it is sufficient to 
note that the course of the FORTRAN program 
through the programming system is from 
source statements to module to phase. 



The Model 44 Programming System itself 
is essentially a collection of programs, 
some interrelated, others independent. The 
related programs include a supervisor, a 
set of system support programs, and two 
language processors. There are several 
independent or stan d -alone programs. Not 
all of these component programs are 
involved in compiling and executing a 
FORTRAN program. Figure 1 shows the 
structure of the programming system and 
indicates those components that are of 
immediate interest to the FORTRAN 
programmer. 



Model 44 

Programming 

System 



I Stand- Alone | 



Supervisor 




Not directly involved in 
FORTRAN IV processing 



Figure 1. Programming System Structure 
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SUPERVISOR 



UTTIITY PROGRAMS 



The supervisor is the system control 
proqram. To say that a program operates 
under control of the programminq system is 
to say that it operates under control of 
the supervisor. Accordingly, the 
stand-alcne programs, although part of the 
programming system, do not operate under 
system control. 
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Detailed information about the 
supervisor's operation need not concern the 
FORTRAN programmer. Anyone interested in 
this material, however, can find it in the 
publication IBM System/360 Model 44 
Progr amminq System: Gu ide to System Use, 
Form C28-6812. 
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FORTRAN IV COMPITER 

The FORTRAN IV compiler is the system 
component that translates FORTRAN source 
statements and produces a module. As the 
statements are compiled, they are checked 
for errors by the compiler, which issues a 
diagnostic message for each error 
discovered. All of this is discussed more 
completely later. 



ASSEMBLER PROGRAM 



JOB CONTROI PROCESSOR 

Among the system support programs is the 
job control processor. Its primary 
function is the processing of job control 
statements, which describe the jobs to be 
performed and specify the programmer's 
requirements for each job. Job control 
statements are written by the programmer, 
using the job control language. The use of 
job control statements and the rules for 
specifying them in job control language are 
discussed later. 



LINKAGE EDITOR 

The linkage editor, another system support 
program, processes modules and incorporates 
them into phases. A single module can be 
edited tc form a single phase or several 
modules can be edited or linked together to 
form one executable phase. Moreover, a 
module to be processed by the linkage 
editor may be one that was just created 
(during the same job) or one that was 
created in a previous job and saved. 

The use of the linkage editor tc perform 
these functions is controlled by the 
proqrammer through job control statements. 
In addition, there are several linkage 
editor control statements. Information on 
their use is given later. 



The other languaqe processor is the 
assembler proqram, which, like the FORTRAN 
IV compiler, translates source statements 
to produce a module. Source statements 
processed by the assembler proqram, 
however, are written in assembler lanquaqe. 
The assembler proqram, therefore, is 
parallel in function to the FORTRAN IV 
compiler and does not directly concern the 
FORTRAN proqrammer. 

As will be shown later, it is possible, 
under control of the proqramminq system, to 
combine modules produced by the FORTRAN IV 
compiler with modules produced by the 
assembler proqram to form one executable 
phase. In this case, certain conventions 
must be followed when the assembler 
lanquaqe source proqrams are written. 
These conventions are explained in Appendix 
C. For those who are interested, the 
assembler lanquaqe is described in the 
publication IBM System/360 Model 44 

Proqramminq System: Assembl er Lanquaqe , 

Form C28-6811, whereas the use of the 
assembler proqram is explained in the 
publication IBM System/360 Model 44 

Proqramminq System: Guide to System Use , 

Form C28-6812. 



PROGRAMMING SYSTEM OPERATION 

The Model 44 Proqramminq System is 
distributed to an installation as a deck of 
cards. Before it can be used, the system 
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must be constructed. System construction 
is a process whereby the programming 
systemis written onto an IBM 2315 Disk 
Cartridge, which is mounted on a single 
disk storage drive within the Model 44 
processing unit. The disk cartridge 
containing the system is called the system 
residence volume or sy stem residence disk . 



Once the system has been constructed, it 
can be tailored to meet the needs of the 
installation via a process known as system 
assembly . 

The programming system is put into 
operation as a result of an 
operator-initiated procedure known as TFL 
(initial program load) . At this time, the 
supervisor is loaded from the system 
residence disk into the main storage of the 
computer, where it remains for as long as 
the programming system is in operation. 

The supervisor then loads the job 
control processor, which reads and 
interprets job control statements. One 



type of job control statement (the EXEC 
statement) is used to reguest the execution 
of a specific program. When an EXEC 
statement is encountered, the job control 
processor relays the name of the program to 
be executed to the supervisor and returns 
control to it. The supervisor then loads 
the reguested program, overlaying the job 
control processor. 
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JOB DEFINITION 
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various subprograms, or a different system 
input device. In this case, the FORTRAN TV 
compiler will be executed several times in 
succession for the various compilations. 



JOB STEPS 
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In contrast to job definition, the 
definition of a job step is fixed. Each 
job step involves the execution of a 
proqram, whether it be a proqram that is 
part of the Model 44 Programming System or 
a program that is written by the user. 
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Multiple Phase Exec u tion 

The execution of a FORTRAN program has thus 
far been spoken of as the execution of a 
phase. It is possible, however, to 
organize a FORTRAN program so that it is 
executed as two or more phases. Such a 
program is called a multiphase p rogram . 

By definition, a phase is that portion 
of a program that is loaded into the 
computer by a single operation of the 
supervisor. (As was mentioned earlier, it 
is the programming system supervisor that 
loads phases for execution.) A FORTRAN 
program can be executed as a single phase 
as long as there is an area of main storage 
available to accommodate it. On the other 
hand, a program that is too large to be 
executed as a single phase must be 
structured as a multiphase program. 

The number of phases in a FORTRAN 
program has no effect, however, on the 
number of job steps reguired to process 
that program. As will be seen, the linkage 
editor can produce one or more phases in a 
single job step. Similarly, both 
single-phase and multiphase programs 
reguire only one execution job step. Phase 
execution is the execution of all the 
phases that make up one FORTRAN program. 
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Detailed information on structuring 
multiphase programs, as well as information 
on using the facilities of the programming 
system to create multiple phases and 

_ ._ A. - X- 1 . _ __ l t A -, ri 3 2 _ - — .. V __ ,_, ,~ .- ,-,--, 4_ 
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chapter, "Job Processing." For now, one 
need only be aware that the facility for 
creating and executing multiphase programs 
exists. 



TYPES OF JOBS 

The typical job falls into cne of several 
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follows; a more complete discussion appears 
later, in the chapter v" Job Processing." 



Compile Only : This type of job involves 
only the execution of the FORTRAN IV 
compiler. It is useful when checking for 
errors in FORTRAN source statements. A 
compile-only job is also used to produce a 
module that is to be further processed in a 
subsequent job. 

A compile-only job can consist of one 
job step or several successive compilation 
job steps. 
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Compile and Edit : This type of job 
combines the functions of the compile-only 
and the edit-only jobs. It calls for the 
execution of both the FORTRAN IV compiler 
and the linkage editor. The job can 
includ-e one or more compilations, resulting 
in one or more modules. The programmer can 
specify that the linkage editor process any 
or all of the modules just produced; in 
addition, he can specify that one or more 
previously produced modules be included in 
the linkage editor processing. 

Execute Only : This type of job involves 
the execution of a phase (cr multiple 
phases) produced in a previous job. Once a 
FORTRAN program has been compiled and 
edited successfully, it can be retained as 
one or more phases and executed whenever 
needed. This eliminates the need for 
re-compiling and re-editing every time a 
FORTRAN program is to be executed. 



Edi t and Execute : This type of job 
combines the functions of the edit-only and 
the execute-only jobs. It calls for the 
execution of both the linkage editor and 

Luc LcbUiLiuvJ pHcloe (oj . 

Co mpile, Edit, and Execute: This type of 
job combines the functions of the 
compile-and-edit and the execute-only jobs. 
It calls for the execution of the FORTRAN 
IV compiler, the linkage editor, and the 
problem program; that is, the FORTRAN 
program is to be completely processed. 

When considering the definition of Ms 
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a failure in editing precludes phase 
execution. 
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JOB DEFINITION STATEMENTS 

Once the programmer has decided what work 
is to be done within his job and how many 
job steps are required to perform the job, 
he can then define his job by writing job 
control statements. Since these statements 
are usually punched in cards, the set of 
job control statements is referred to as a 
job deck. In addition to job control 
statements, the job deck can include input 
data for a program that is executed during 
a job step. For example, input data for 
the FORTRAN IV compiler — the FORTRAN 
source statements to be compiled — can be 
placed in the job deck. 

The inclusion of input data in the job 
deck depends upon the way the installation 
has assigned input/output devices. Job 
control statements are read from the unit 
named SYSRDR (system reader) , which can be 
either a card reader or a magnetic tape 
unit. Input to the processing programs is 
read from the unit named SYSIPT (system 
input) , which also can be either a card 
reader or a magnetic tape unit. The 
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installation has the option of assigninq 
either two separate devices for these units 
(one device for SYSRDR, a second device for 
SYSIPT) or one device to serve as both 
SYSRDR and SYSIPT. If two devices have 
been assigned, the job deck must consist of 
only job control statements; input data 
must be kept separate. If only one device 
has been assigned, input data must be 
included within the job deck. 

There are four job control statements 
that can be used for job definition: the 
JOB statement, the EXEC statement, the 
end-of-job (/&) statement, and the 
end-of-data (/*) statement. The discussion 
of these job control statements in this 
chapter is limited to the function and use 
of each statement. The rules for writing 
each statement are given in a subsequent 
chapter, "Control Statements." 

The JOB statement defines the start of a 
job. One JOB statement is required for 
every job; it must be the first statement 
in the job deck. If the programmer wishes 
to name his job, he may specify this name 
in the JOB statement. Also, any job 
accounting information required by the 
programmer's installation can be placed in 
this statement. 

The EXEC statement requests the 
execution of a program. Therefore, one 
EXEC statement is required for each job 
step within a job. The EXEC statement 
indicates the program that is to be 
executed (for example, the FORTRAN IV 
compiler, the linkage editor) . As in the 
JOB statement, the programmer may specify a 
name, in this case, for the job step, and 
also any accounting information required by 
the installation. As soon as the EXEC 
statement has been processed, the program 
indicated by the statement begins 
execution. 

The end-of-job statement, also referred 
to as the /& — slash ampersand — 
statement, defines the end of a job. A /& 
statement must appear as the last statement 
in the job deck. 

The end-of-data statement, also referred 
to as the /* -- slash asterisk — 
statement, defines the end of a program's 
input data. When the data is included 
within the job deck (that is, SYSIPT and 
SYSRDR are the same device) , it is placed 
immediately following the EXEC statement 
for the program that reguires it. The /* 
statement immediately follows the input 
data. For example, FORTRAN source 
statements would be placed' immediately 



after the EXEC statement for the FORTRAN IV 
compiler; a /* statement would follow the 
last FORTRAN source statement. 

When input data is kept separate (that 
is, SYSIPT and SYSRDR are separate 
devices) , the /* statement immediately 
follows each set of input data on SYSIPT. 
For example, if a job consists of two 
compilation job steps, an editing job step, 
and an execution job step, SYSIPT would 
contain the source statements for the first 
compilation followed by a /* statement, the 
source statements for the second 
compilation followed by a /* statement, any 
input data for the linkage editor followed 
by a /* statement, and perhaps some input 
data for the problem program followed by a 
/* statement. 

A /* statement must always be used in an 
editing job step whether or not there is 
any input data for the linkaqe editor. 
When there is input data, the /* statement 
immediately follows the input data, whether 
it is in the job deck or on a separate 
SYSIPT. When there is no input data, the 
/* statement either immediately follows the 
EXEC statement for the linkage editor or 
appears in the appropriate place on a 
separate SYSIPT. 



JOB DEFINITION EXAMPLES 

The following are examples of "job decks" 
for the various types of jobs. Their 
purpose is to show the order of job 
definition statements within a job. No 
attempt is made to show the contents of 
each statement. In addition, the examples 
are limited to only the job definition 
statements and input data; no other job 
control statements are shown. (Examples of 
complete job decks, indicating the contents 
of all statements, are in Appendix A.) 

Two compile-only jobs are shown below: 
a single compilation and a multiple 
compilation. For all other jobs, the , 
reader can assume that only one set of 
source statements, one module, and/or one 
phase is involved. Input data is shown 
only for the sake of example; it is not 
always reguired in the job deck. 

Compile only (one c ompilation) : 

JOB statement 

EXEC statement (FORTRAN IV compiler) 

Source language statements 

/* statement 

/& statement 



10 System/360 Model 44PS Guide to System Use FORTRAN 



Co mpi le .only (t hre e compilations) : 
JOB statement 

EXEC statement (FORTRAN IV compiler) 
Source language statements 



Table 1. Job Control Statements 

i 1 



-X -. J- ^ . 



EXEC statement (FOETEAN IV compiler) 

Source language statements 

/* statement 

EXEC statement (FOETEAN IV compiler) 

Source language statements 

/* statement 

/& statement 



Edit only : 



EXEC statement (linkage editor) 
Module to be edited 
/* statement 
/& statement 



Compil e and ed it : 
JOB statement 

EXEC statement (FOETEAN IV compiler) 
Source language statements 
/* statement 

EXEC statement (linkage editor) 
/* statement 
/& statement 



Execute only : 

JOB statement 

EXEC statement (phase) 

Data used by problem program 

/* statement 

/& statement 



Edit and execute : 
JOB statement 

n v-n r* 
Jj Alj >~ 

Module to be edited 

/* statement 

EXEC statement 1 

Data used by problem program 

/* statement 

/& statement 



Comp i le, edit, and execute : 
JOB statement 

EXEC statement (FORTEAN IV compiler) 
Source language statements 
/* statement 

EXEC statement (linkage editor) 
/* statement 
EXEC statement* 
Data used by problem program 
/* statement 
/& statement 



*In this case, the program to be executed 
need not be indicated; the system will 
assume that the phase just produced by the 
linkage editor is to be executed. 



STATEMENT | FUNCTION 

! 



JOB DEFINITION 



// JOB 

// EXEC 



/& 



Defines the start of a job, 
Defines the start of a job 
step execution and 
indicates the program to 
be executed. 
Indicates the end of a job. 

Tn/li oa + fic +Vici £in/3 r^-F -inrtn + 

data for a processing 
program. 



SYMBOLIC UNIT ASSIGNMENT 



// ALLOC 
// LABEL 
// ACCESS 
// EESET 

// LISTIO 



Allocates space for a new 

data set. 
Defines the characteristics 

of a data set. 
Permits access to an 

existing data set. 
Eestores unit assignments to 

their status at the start 

of the job. 
Lists data set and device 

assignments. 



DATA SET MAINTENANCE 



// DELETE 

// r> r\ xt t\ r? \i c ^ 

// \-\J VI u lj 11 -Jl 

// RENAME 

// CATLG 

// UNCATLG 



Deletes a data set from a 
volume or a member from a 
directoried data set. 

set. 
Eenames a data set or a 

member of a directoried 

data set. 
Enters a data set name into 

the catalog. 
Removes a data set name from 

the catalog. 



MISCELLANEOUS 
1 



// PAUSE 

* (comments) 

// EEWIND 

// UNLOAD 



Allows pause for operator 

action. 
Allows logging of comments 

on system log. 
Eewinds a tape; repositions 

a data set on a direct 

access volume to its 

beginning . 
Rewinds and unloads a tape. 



Job Definition 1 1 



OTHER JOB CONTROL STATEMENTS 

The four job definition statements form 
the framework of the job deck. There are 
a number of other job control statements 
in the job control lanquaqe. Not all of 
them must appear in the job deck; in fact, 
some FORTRAN programs can be processed 
without usinq any of these additional 
statements. The job control statements 
are qrouped by cateqory and summarized 
briefly in Table 1. 

The double slash preceding each 
statement name identifies the statement as 



a job control statement. Most of the 
statements are used for data 
manag ement — creating, manipulating, and 
keeping track of data sets (externally 
stored collections of data, from which data 
is read and into which data is written). 



Information about using the remaining 
control statements is given in the chapters 
"Data Sets" and "Job Processing. " Rules 
for writing these statements are in the 
chapter "Control Statements." 
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The data set reference numbers 
acceptable to the Model 44 FORTRAN IV 
compiler ranoe from 1 through 8. Within 
the Model 44 FORTRAN IV compiler, each data 
set reference number corresponds to a 
symbolic unit name, which in turn is 
associated with a particular data set. The 
correspondence between data set reference 
numbers and symbolic unit names is shown in 
Table 2. 



Table 2. Data Set Reference Numbers and 
Symbolic Unit Names 

i 

3 - SYS003 6 - SYSOPT 

1 - SYS001 4 - SYS004 7 - SYSPCH 

2 - SYS002 5 - SYSIPT 8 - SYS000 



The data set reference numbers 1, and 5 
through 8 refer to system units , symbolic 
units that are reguired for programming 
system operation. Each system unit has a 
predefined relationship with a system data 
set (that is, each system unit name will 
have been already associated with a system 
data set by the time the FORTRAN 
programmer's job is to be run). 

The data set reference numbers 2, 3, and 
4 refer to units for which a predefined 
relationship (also called a standard unit 
assignment ) is not required. It is up to 
the programmer to determine whether or not 
a standard unit assignment for any of these 
units exists at his installation. 

It is also the programmer's 
responsibility to determine whether the 
installation has modified the FORTRAN IV 
compiler and changed the relationships 
between data set reference numbers and 
symbolic unit names. The relationships 
shown in Table 2 reflect the FORTRAN IV 



compiler distributed as part of the Model 
44 Programming System. 



USING SYSTEM DATA SETS 

To use a system data set, a programmer need 
only specify the appropriate data set 
reference number in his program. The 
FORTRAN IV compiler associates the number 
with the corresponding system unit. The 
relationship between the system units and 
the system data sets is predefined by 
standard unit assignments. 

The system work data set (data set 
reference number 1) is located on the unit 
named SYS001. The data set contains 
intermediate data from any of the 
programming system components. 
(Intermediate data is data that is stored 
temporarily on an external medium by one 
part of a program to be read and processed 
by another part of that program.) 
Intermediate data for a FORTRAN program can 
be written into and read from the system 
work data set. 

The system input data set (data set 
reference number 5) is located on the unit 
named SYSIPT. The data set contains input 
to the processing programs, such as FORTRAN 
source statements and linkage editor 
control statements. Input data for a 
FORTRAN program can be placed on SYSIPT 
along with any other input data. If SYSIPT 

the input data should be placed in the job 
deck immediately after the EXEC statement 
that requests phase execution. 

The system output data set (data set 
reference number 6) is located on the unit 
named SYSOPT. The data set contains system 
print output, such as a listinq of FORTRAN 
source statements. Print output from a 
FORTRAN proqram can be written into the 
system output data set. 

The system punch data set (data set 
reference number 7) is located on the unit 
named SYSPCH. The data set contains all of 
the system punch output. Punch output from 
a FORTRAN proqram can be written into the 
system punch data set. 

The linkaqe editor input data set (data 
set reference number 8) is located on the 
unit named SYS000. The data set contains 
output from the compiler (or the assembler) 
that is to be used as input to the linkaqe 
editor. For example, a module that is 
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produced by the compiler and intended for 
editing in a subsequent jcb step is written 
on SYSOCO. Later in the job, the linkaqe 
editor reads the module frcm SYS000. The 
FORTRAN proqrammer may use the linkaqe 
editor input data set provided that it is 
no lonqer needed durinq the job by the 
linkaqe editor (that is, there is no 
editinq job step subsequent to the job step 
in which the FORTRAN proqrammer uses 
SYS000) . 

When using any system data set, the 
proqrammer should be aware of the 
installation device assiqnment for the unit 
on which the data set is located. For 
example, SYSIPT can be either a card reader 
or a maqnetic tape unit. SYSPCH can be 
either a card punch or a maqnetic tape 
unit. SYSOPT can be either a printer or a 
maqnetic tape unit. SYS001 can be either a 
maqnetic tape unit or an area of disk 
storaqe. Also, if SYS001 is an area of 
disk storaqe, the proqrammer should know 
how larqe an area the installation has 
reserved (or allo cated ) for SYS001 and, 
thus, determine whether it can accommodate 
the work data for his FORTRAN proqram. 

If a programmer can satisfy his data 
requirements by using only system data 
sets, he need not concern himself with the 
details of usinq private data sets. It is 
also unlikely that he will have to use any 
of the job control statements intended for 
data manaqement. Since the remainder of 
this chapter discusses the use and 
maintenance of private data sets, the 
proqrammer usinq only system data sets can 
skip to the next chapter. 



USING PRIVATE DATA SETS 

To use one of his own data sets, a 
proqrammer specifies any one of the data 
set reference numbers 2, 3, or 4 in his 
proqram. As with the system data sets, the 
FORTRAN IV compiler associates the number 
with a particular symbolic unit. Unless a 
standard unit assiqnment exists for this 
unit, the FORTRAN proqrammer must establish 
a relationship between the symbolic unit 
and his data set by usinq job control 
statements. Even when a standard unit 
assiqnment is in effect, the proqrammer can 
use job control statements to temporarily 
override the assiqnment and establish a new 
relationship. 

In addition, the proqrammer must provide 
the system with whatever information it 
needs to be able to process the data set. 
The nature of the reguired information 
varies according to the type of data set. 

One way of classifying a data set is 
according to the type of storage medium it 



occupies. This places a data set into one 
of three categories: unit record data 
sets, tape data sets, and direct access 
data sets. 



UNIT RECORD DATA SETS 

Unit record data sets include data sets on 
cards and data sets on the printed page. 
Card data sets can be further divided into 
input data sets, which contain data to be 
read, and output data sets, into which data 
is to be punched. Card data sets are 
processed either by a card reader (for 
input) or a card punch (for output) . 
Printed data sets are processed by a 
printer. 

It is unusual for private unit record 
data sets to be used since the type of data 
they contain can be accommodated by the 
system data sets. Furthermore, few 
installations will have card readers, card 
punches, or printers other than those used 
for system data sets. However, if the 
appropriate devices are available, the 
programmer is free to forego using system 
data sets. 

For each private unit record data set 
that he uses, the programmer places an 
ACCESS statement in his job deck. In this 
statement he specifies the name of the data 
set and the symbolic unit name with which 
the data set is to be associated. He also 
indicates, in either of twp ways, the 
device containing the data set. He can 
indicate a particular device by specifyinq 
the physical address of the device. Or he 
can indicate that a certain type of device 
is to be used by specifyinq a device type 
code. In this case, the system determines 
the particular device to be used and prints 
a message indicating its choice. 

Details on writing the ACCESS statement 
for unit record data sets, including a list 
of the permissible device type codes and 
their meanings, can be found in the chapter 
"Control Statements." 



TAPE DATA SETS 

A tape data set is a data set on a reel of 
magnetic tape. A tape data set cannot 
extend beyond one reel of tape, nor can a 
reel of tape contain more than one data 
set. 

Tape data sets fall into two categories: 
existing tape data sets and new tape data 
sets. An existing t ape da ta set already 
contains data and has already been assigned 
to a particular tape volume (reel of tape) . 
The programmer uses an existing tape data 
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set either to read data from it cr to add 
data to it. 






no data, nor has it been assigned to a tape 
volume. A new tape data set must be 
created by the proqrammer before data can 
be written into it. The programmer uses a 
new tape data set whenever he is writing an 
entirely new collection of data. This 
includes intermediate data, which is 
written by one part of a program and read 
by another part of that program. 



When a data set is created, the 
programmer can request that the data set be 
placed into the system catalog . This means 
that the system will keep track of the data 
set and its location (the tape volume to 
which it is assigned) . A data set in the 
system catalog is referred to as a 
cataloged data set. 



Tape Lab els 

Each installation has the option of using 
tape labels to facilitate the use of tape 
data sets. Tape labels include a volume 
label, which identifies a particular reel 
of tape, and two data set labels, which 
provide information about the data set on 
the tape. 
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-6812.) The volume label contains 
serial number, consisting of from 

ugh six characters, which serves to 
the tape volume. 

wo data set labels are a header 
d a trailer label. Both labels 
the name of the data set, its 
date, and its expiration date (the 
data set may be deleted) . The 
abel may be written when the volume 
alized. Otherwise, it is written 
ore any data is written into the 

on the volume. The trailer label 
en at the end of the data set. 



A tape volume is considered labeled if 
the installation uses tape labels and if 
the tape has been initialized (that is, a 
volume label has been written on it) . If 
the tape volume contains data that is to be 
read, it must also contain data set labels 
in order to be considered labeled. 



Creating Tape Data Sets 

The programmer must create any new tape 
data set that he wants to use. That is, he 

mi-!c+ a ii nr3 + a p 4. ar , s vn1nm<2 +■ n rntifai n + h s 

data set -- either a particular tape volume 
or, as is more commonly the case, any fresh 
tape volume. A fresh tape volume is one 
that either contains no data set or 
contains an expired data set. 

To create a tape data set, the 
programmer places an ALLOC statement in his 
job deck. In this statement, he specifies 
the name of the data set, the symbolic unit 
name with which the data set is to be 
associated, and a volume designation. 

The volume designation identifies the 
device to be used, either through a device 
address or through a device type code. It 
may also include volume options, which vary 
according to the type of tape being used 
(that is, 7-track tape, 9-track tape) . 
Finally, the volume designation indicates 
whether a fresh tape volume or a particular 
tape volume is to be used. 

A fresh volume is reguested by 
specifying the word FRESH in the volume 
designation. A particular tape volume is 
reguested by specifying a volume 
identification (also referred to as the 
volid) . If the tape is labeled, the volid 
is the volume serial number in the tape's 
volume label. If the tape is not labeled, 
the volid reflects whatever external 
identification is used by the installation. 

The programmer can reguest that the data 
set be cataloged by specifying the CATLG 
parameter in the ALLOC statement. This 

/"■•anc^c -t-V)^ -namQ r\-f + Vi £5 ^ a +- a CO+ a Tlf^ ^D 

indication of its location, to be entered 
into the system catalog. 

Details on writing the ALLOC statement 
for tape data sets, including lists of the 
permissible device type codes and volume 
options and their meanings, can be found in 
the chapter "Control Statements." 
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If the tape volume is unlabeled, no 
further checking is done. If the tape 
volume is labeled, however, the system 
checks to see that it meets the 
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specifications — that is, whether the 
specified volid matches the volume serial 
number in the volume label or whether the 
volume is a fresh one (contains no header 
label or an unexpired label) . If the tape 
volume does not meet the specifications, a 
message is printed, informing the operator 
of the discrepancy. The operator can then 
choose between continuing with the same 
tape volume or mounting another tape 
volume. If he mounts another volume, the 
checking procedure is repeated until an 
appropriate tape is found. 

If the tape volume is labeled, the 
programmer must also include a LABEL 
statement immediately after the ALLOC 
statement in his job deck. In this 
statement, he must specify the expiration 
date of the data set unless the current 
date is to be used as the expiration date. 
The LABEL statement causes data set labels 
to be written (or their contents to be 
changed) when the first WRITE instruction 
is issued for that data set. 

Details on writing the LABEL statement 
can be found in the chapter "Control 
Statements. " 



Using Existing Tape Data Sets 

To use an existing tape data set, the 
programmer places an ACCESS statement in 
his job deck. In this statement he 
specifies the name of the data set, the 
symbolic unit name with which the data set 
is to be associated, and a volume 
designation. (The volume designation is 
not required for a cataloged data set 
because the system already has a record of 
this information.) 

The volume designation identifies the 
device to be used, either through a device 
address or through a device type code. It 
may also include volume options, which vary 
according to the type of tape being used 
(that is, 7-track tape, 9-track tape) . 
Finally, the volume designation specifies 
the volume identification (volid) of the 
tape containing the data set. The volid is 
required only if the tape is labeled; it 
may or may not be used for unlabeled tapes. 

For a labeled tape, the volid is the 
volume serial number in the tape's volume 
label. For an unlabeled tape, the volid is 
whatever external identification is used by 
the installation. 

If the programmer is adding data to an 
existing data set (rather than reading from 
it) , he must also specify an EXT parameter 
in the ACCESS statement. This causes the 
tape volume to be positioned at the end of 
the existing data set. 



Details on writing the ACCESS statement 
for tape data sets, including lists of the 
permissible device type codes and volume 
options and their meanings, can be found in 
the chapter "Control Statements." 

The system determines the device that is 
to be used, either the particular tape 
drive whose device address was specified or 
an available tape drive of the type 
specified. A message is printed 
instructing the operator to mount the tape 
with the specified volid on that unit. If 
no volid was specified in the ACCESS 
statement (permitted for unlabeled tapes 
only) , the message simply tells the 
operator to mount a tape volume. It is up 
to the programmer to make sure that the 
operator knows which volume is to be 
mounted . 

As soon as the tape volume is mounted, 
the operator gives a signal for the system 
to proceed. If the tape volume is 
unlabeled, no further checking is done. If 
the tape volume is labeled, however, the 
system checks to see whether the specified 
volid matches the volume serial number in 
the volume label. If it does not match, a 
message is printed informing the operator 
of the discrepancy. The operator can then 
choose between continuing with the same 
tape volume or mounting another tape 
volume. If he mounts another volume, the 
checking procedure is repeated until an 
appropriate tape volume is found. 

If the tape volume is labeled, the data 
set labels are checked when the first READ 
statement is issued for that data set. 
Checking a data set label includes 
comparing the data set name in the label 
with that specified in the ACCESS statement 
for the data set. 



DIRECT ACCESS DATA SETS 

A direct access data set resides on a disk 
volume , that is, a disk cartridge or a disk 
pack. A direct access data set may not 
extend beyond one disk volume; however, 
several direct access data sets may reside 
on a single volume. Each data set must 
reside on contiguous tracks and cylinders. 
The space on a volume occupied by a 
particular data set is called the extent of 
that data set. 

Direct access data sets fall into two 
categories: existing direct access data 
sets and new direct access data sets. An 
existing direct access data set has already 
been assigned to a particular area of disk 
storage (its extent has already been 
defined) . It may or may not contain any 
data. 
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A new direct access data set is one that 
contains no data, nor has its extent been 
defined. A new direct access data set must 
be created by the programmer before data 
can be written into it. 



Disk Lab els 

All direct access volumes must 
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Disk labels are written on a direct 
access volume when the volume is 
initialized. Volumes are initialized by a 
system utility program and the process is 
usually the responsibility of the 
installation. (The system utility programs 
are discussed in the publication IBM 
System/360 Model 44 Programming S ystem; 
Guide to System Use, Form C2S-6812.) 

Orga nization of D i rect Access Data Sets 

The programmer can organize a direct access 
data set in either of two ways. The first 
of these, called seguential , is the 
familiar structure in which records are 
placed in seguence. In the second 
organization, called directoried , each data 
set is organized into twc parts, a 
director y and members. 

A member of a directoried data set has 
the characteristics of a seguential data 
set; for example, it has a name, it is 
processed seguentially , and it can be 
associated with a symbolic unit name. 
However, a member is not a data set, but 
only part of one. Also, a member can have 
more than one name. 

The directory keeps track of each 
member, its location in the data set, and 
its length. The directory contains at 
least one entry for each member. There are 
multiple entries for members with more than 
one name (one entry for each name) . The 
system uses the directory to locate 
individual members when they are required. 

Creating Direct Acces s Data Sets 

The programmer must create any new direct 
access data sets that he wants to use. 
That is, he must allocate all or part of a 



disk volume for the data set. 
programmer can request that sp 
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volume having a specific volum 
number or the volume that aire 
a specific data set whose loca 
to the system. (The location 
is known to the system if it i 
system data sets, if it is a c 
set, or if it is a data set fo 
ALLOC or ACCESS statement was 
processed in the job.) 



The 
ace for the 
sh disk 
ata sets) . 
e allocated 
ither the 
e serial 
ady contains 
tion is known 
of a data set 
s one of the 
ataloged data 
r which an 
previously 



^i-05 4-, 



^ a a i~ as-4- clccqss dat^ set ^^q 

programmer places an ALLOC statement in his 
job deck. In this statement, he specifies 
the name of the data set and either of two 
types of volume designation. 
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The second type of volume designation is 
used when the programmer wants space 
allocated on a particular volume that 
already holds a specific data set. The 
proarammer specifies the word SAME in the 
volume designation. He then identifies the 
data set either by specifying its name or 
by specifying the symbolic unit name with 
which it is currently associated. 

Both types of volume designation allow 
the programmer to indicate whether or not 
write validity checking is to be performed 
for the data set. When write validity 
checking is performed, the system checks 
each block of data as it is written to see 
that it has been written correctly. 
Standard error recovery procedures are 
followed if an error is detected. The 
write checking procedure reguires an 
additional disk revolution for each data 
block that is written. 

The programmer must also indicate in the 
ALLOC statement the length of the data set. 
That is, he must specify the number of 
blocks that are to be allocated for the 
data set. The number of blocks is equal to 
the number of FORTRAN records in the data 
set. 
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The programmer can request that the data 
set be cataloged by specifying the CATTG 
parameter in the ALLOC statement. This 
causes the name of the data set, along with 
an indication of its location, to be placed 
into the system catalog. 

Within a FORTRAN program, either 
sequential or direct access input/output 
statements can be used to transfer data to 
or from a direct access data set. If 
direct access statements (for example, the 
DEFINE FILE statement) have been used for 
the data set being created, the programmer 
must specify the FMT parameter in the ALLOC 
statement. This causes the system to 
prepare the disk area for direct access 
input/output operations. 

If a directoried data set is being 
created, the length of the directory must 
also be specified in the ALLOC statement. 
The length of the directory is equal to the 
number of entries that are to be made in 
it, allowing one entry for each member 
name. 

If a symbolic unit name is to be 
associated with the data set, the 
programmer can specify this name in the 
ALLOC statement. A symbolic unit name must 
be associated with a sequential data set 
before it can be used. For a directoried 
data set, a symbolic unit name is usually 
associated with each member of the data 
set, rather than with the entire data set. 

The programmer must also include a TABEL 
statement in his job deck, immediately 
after the ALLOC statement. In the LABEL 
statement, he must specify the block length 
of the data set. The block length is the 
number of bytes in each FORTRAN record. 
This number cannot exceed 360 unless direct 
access input/output operations are to be 
performed on the data set. In this case, 
the block length specified for the data set 
in the LABEL statement should agree with 
the record length specified for the data 
set in the DEFINE FILE statement within the 
FORTRAN program. 

The programmer can also specify the 
expiration date of the data set in the 
LABEL statement. The absence of this 
specification causes the system to assume 
that the current date is to be msed, that 
is, that the data set is not to be retained 
after the date it is created. 

Finally, the programmer can indicate 
whether cr not write validity checking is 
to be performed for this data set. The 
specification given here can be overridden, 
however, by the write validity checking 
option in the ALLOC statement. In other 
words, the system acts in accordance with 
the specification in the ALLOC statement. 



If nothing is specified in the ALLOC 
statement, the system acts in accordance 
with the specification in the LABEL 
statement. If nothing is specified in 
either statement, no write validity 
checking is performed. 

If the information to be given in the 
LABEL statement duplicates that given in 
the LABEL statement for another data set, 
the programmer need not repeat the 
information. This is true, however, only 
if the other data set is one for which an 
ALLOC or ACCESS statement was processed 
previously in the job. The programmer need 
only specify the word SAME in the LABEL 
statement and then identify the other data 
set. He can identify it either by 
specifying its name or by specifying the 
symbolic unit name with which it is 
currently associated. 

Creating a Member o f a Directoried Data Set 

In addition to creating a directoried data 
set in the manner just described, the 
programmer must also create each member of 
the data set. Only one member can be 
created in a single job step. Whatever is 
written into the member during that job 
step determines the size of the member. 
Once the member is created, its size cannot 
be changed. 

A member is given one or more unique 
names when it is created; the names are 
unique in that they may not duplicate any 
other member names in the data set. The 
number of names given to a member cannot be 
increased after the member has been 
created, although existing member names can 
be replaced by new names (this is explained 
in a later section, "Data Set Maintenance 
Statements") . 

A member of a directoried data set will 
be created only if there is space for it in 
the data set and if there is room in the 
directory for the entries required for that 
member. 

To create a member, the programmer 
places an ACCESS statement in his job deck. 
In this statement, he specified the names 
to be given to the member, the name of the 
data set to which the member is to belong, 
and the symbolic unit name with which the 
member is to be associated. 

The programmer must also indicate the 
location of the directoried data set to 
which the member is being added, unless its 
location is already known to the system. 
The location of the data set is indicated 
by a volume designation. The volume 
designation can be any of those used in the 
ALLOC statement to create a data set, with 
one exception. The ACCESS statement cannot 
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indicate that the directoried data set 
resides on a fresh volume. 

Finally, the programmer must specify the 
Niiw parameter in r. n e A^L-iiijo s "c 3 "c e m e n ~c xo 
indicate that a new member is being 
created. 

Using Existing Direc t Access Data Sets 

To use an existing direct access data set, 
the programmer places an ACCESS statement 
in his job deck. In this statement, he 
specifies the name of the data set, the 
symbolic unit name with which the data set 
is to be associated, and either of two 
types of volume designation. (The volume 
designation is not reguired for a cataloged 
data set because the system already has a 
record of this information.) 

The first type of volume designation is 
used to reguest a volume through its volume 
serial number. It identifies the device to 
be used, either through a device address or 
through a device type code. It also 
specifies the volume identification (volid) 
of the disk containing the data set. 

The second type of volume designation is 
used to reguest the same volume that 
contains another specific data set. The 
location of this other data set must be 
known to the system. The programmer 
specifies the word SAME in the volume 
designation. He then identifies the other 
data set, either by specifying its name or 
by specifying the symbolic unit name with 
which it is currently associated. 

Both types of volume designation allow 
the programmer to indicate whether or not 
write validity checking is to be performed 
for the data set. 

If the programmer is adding data to a 
seguential data set (rather than reading 
from it) , he must also specify the EXT 
parameter in the ACCESS statement. This 
causes the disk volume to be positioned 
after the last item of data in the existing 
data set, rather than at the beginning of 
the data set. Adding data to a direct 
access data set does not affect the size of 
the data set. Additional data is limited 
to whatever amount can be contained in the 
extent that was defined for the data set at 
the time it was created. 

The use of the UNDEF parameter indicates 
that the Model 44 Programming System must 
use its undefined-read method when reading 
the direct access data set. This parameter 
must be specified for any direct access 
data set that was not created by the Model 
44 Programming System, with the exception 
of direct access data sets created by the 
IBM System/360 Operating System and having 



fixed-length standard blocks (i.e., a data 
set that contains no truncated blocks or 
unfilled tracks, with the possible 
exception of the last block or track) . 

Using Existing Mem b e rs o f a pi rectoried 
Data Set 

A member of a directoried data set, once it 
has been created, cannot be enlarged; 
however, data within it can be manipulated 
freely or replaced. To use an existing 
member of a directoried data set, the 
proarammer places an ACCESS statement in 
his job deck. In this statement, he 
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of the directoried data set to which the 
member belongs, and the symbolic unit name 
with which the member is to be associated. 

The programmer must also indicate the 
location of the directoried data set to 
which the member belongs, unless its 
location is already known to the system. 
The location of the directoried data set is 
given by a volume designation. This can be 
either of the volume designations valid in 
the ACCESS statement for using an existing 
direct address data set (discussed in the 
previous section) . 



PLACING ALLOC AND ACCESS STATEMENTS IN THE 
JOB DECK 

The ALLOC and ACCESS statements for data 
sets that are to be created or used during 
a job should be placed before the EXEC 
statement for the job step using the data 
sets. In most cases, this will be a phase 
execution job step. The programmer can 
place all of the ALLOC and ACCESS 
statements j_or a job in front of the first 
EXEC statement in the job deck. This means 
that the assignments made by the statements 
remain in effect throughout the entire job 
or until changed by a RESET statement 
(discussed in the next section, "Symbolic 
Unit Maintenance Statements") . 



SYMBOLIC UNIT MAINTENANCE STATEMENTS 

Two job control statements, RESET and 
LISTIO, are used in conjunction with ALLOC 
and ACCESS statements that alter the 
assignments of system units. 

The RESET statement is used to restore 
one or more symbolic units to their 
standard assignments. The statement is 
used when an assignment has been altered by 
an ALLOC or ACCESS statement in a previous 
job step. The RESET statement applies only 
to those units that were given standard 
assignments either when the system was 
constructed or when the operator performed 
an TPL procedure. 
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One RESET statement can be used to 
restore either all units with standard 
assignments or just one unit. If more than 
one unit is to be restored, but not all, a 
separate RESET statement is reguired for 
each. Rules for writing the RESET 
statement can be found in the chapter 
"Control Statements." 

Regardless of whether RESET statements 
are used, all units are restored to their 
standard assignments at the end of the job. 

The LTSTTO statement is used to obtain a 
listing of current symbolic unit 
assignments. The listing, which is 
produced on SYSLST and on SYSLOG, includes 
the name of the symbolic unit, its current 
device address, the volume designation 
(volid) of the volume to which it is 
assigned, and the name of the data set 
currently associated with the symbolic 
unit. 
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Rules for. writing the LISTIO statement 
can be found in the chapter "Control 
Statements. " 



DATA SET MAINTENANCE STATEMENTS 

There are five job control statements used 
for the maintenance of data sets: CATLG, 
UNCATLG, DELETE, CONDENSE, and RENAME. 
These statements are intended primarily for 
use with direct access data sets, although 
the CATLG and UNCATLG statements can be 
used for other data sets. 

Each of the data set maintenance 
statements is discussed here with respect 
to its function and use. Rules for writing 
these statements can be found in the 
chapter "Control Statements." 

The CATLG statement is used to make an 
entry for a data set in the system catalog. 
A cataloged data set can be referred to by 
name only, without any need for stating its 
location. Catalog entries are retained 
until specifically deleted by an UNCATLG 
statement or until the data set is deleted. 



The name of the data set to be cataloged 
may not duplicate the name of a data set 
already in the catalog. Catalog entries 
can also be made through use of the CATTG 
specification in the ALLOC statement that 
creates a data set. 

The UNCATLG statement is used to delete 
a data set entry from the system cataloq. 
Removal of the catalog entry does not 
change the data set itself or the volume 
containing it. The data set entry in the 
volume table of contents is also 
unaffected . 

The DELETE statement is used to 
eliminate a data set or a member of a 
directoried data set. When a member has 
more than one entry in the directory (more 
than one member name) , the DELETE statement 
can be used to remove one or more of the 
entries. The member continues to exist as 
long as it is represented by at least one 
entry in the directory. 

When an entire data set is deleted, the 
system removes its entry from the volume 
table of contents (VTOC) , updates one of 
the volume's space management labels to 
reflect the removal, and, if applicable, 
removes the entry for the data set from the 
system catalog. 

The data set is not physically altered 
at this point. It cannot be referred to, 
however, and the system treats the space it 
occupies as vacant. The same applies to a 
member of a directoried data set when all 
its entries have been removed from the 
directory. 

The space occupied by a deleted data set 
can be assigned to a new data set; the 
space occupied by a deleted member within a 
directoried data set, however, cannot be 
reassigned. The CONDENSE job control 
statement (described later) can be used to 
shift existing members toward the beginning 
of a directoried data set so that new 
members can be added at the end. 

A separate DELETE statement is reguired 
for each data set that is to be deleted. 
Any number of the members of one director- 
ied data set can be deleted with a single 
DELETE statement. 

Any data set cited in a DELETE statement 
must have been referred to in an ALLOC or 
ACCESS statement processed previously in 
the job. 

The CONDENSE statement is used to shift 
the contents of a directoried data set in 
order to fill space occupied by deleted 
members and directory entries. This space 
is treated as though it were empty. 
Existing members and directory entries are 
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shifted toward the beginning of the data 
set to fill the space. The total size of 
the data set is not changed. Also, there 
is no change in the order in which the 
rsindininy luciu^f i_l» ufiii entries appear. 

After the data set has been condensed, 
all available space is at the end of the 
data set and at the end of the directory. 
New members may be added and new entries 
may be made in the directory. 

Any data set cited in a CONDENSE 
statement must have been referred to in an 
ALLOC or ACCESS statement processed 
previously in the job. 

The RENAME statement is used to change 
the name of a data set or the name of a 



member of a directoried data set. When a 
data set is renamed, the name is changed in 
the VTOC and, if applicable, in the system 
catalog. The name of a member is changed 
in the director" of the data set to which 
it belongs. Other names of that member, if 
any, are not affected. 



The new name may not duplicate an 
existing name in the system catalog, volume 
tabxe oj_ contents, or data set directory. 
System data sets should not be renamed. 



Any data set cited in a RENAME statement 
must have been referred to in an ALLOC or 
ACCESS statement processed previously in 
the job. 
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This chapter describes in greater detail 
the three types of job steps involved in 
processing a FORTRAN program. It describes 
the options available to the programmer for 
each process and refers to specifications 
in job control statements and linkage 
editor control statements. Once the reader 
has become familiar with the information 
presented here, he should be able to write 
control statements merely by referring to 
the next chapter, "Control Statements." 



COMPILATION 

Compilation is the execution of the FORTRAN 
IV compiler. The programmer reguests 
compilation by placing in the job deck an 
EXEC statement that contains the program 
name FORTRAN (the name of the FORTRAN IV 
compiler) . This is the EXEC FORTRAN 
statement. 

Input to the compiler is a set of 
FORTRAN source statements, constituting 
either a main program or a subprogram. 
Source statements punched in either card 
code, Extended Binary-Coded- Decimal 
Interchange Code (EBCDIC) or 
Binary-Coded-Decimal Interchange Code 
(BCDIC) , are acceptable. (Appendix B 
shows the EBCDIC and BCDIC card codes for 
each of the 49 characters that are valid in 
FORTRAN source statements.) 

If any characters of the source 
statements are punched in the BCDIC card 
code, the programmer must specify BCD as a 
compiler option in the EXEC FORTRAN 
statement. Otherwise, the FORTRAN IV 
compiler assumes that all source statements 
for the compilation are punched in EBCDIC 
and, therefore, treats any BCD characters 
as invalid. (If BCD is specified, the 
character $ must not be used as an 
alphabetic character in the source program, 
and statement numbers passed as arguments 
must be coded as $n rather than Sn.) 

The FORTRAN source statements are read 
from SYSIPT. The job deck is read from 
SYSRDR. If SYSIPT and SYSRDR are assigned 
to the same unit, the FORTRAN source 
statements should be placed after the EXEC 
FORTRAN statement in the job deck. 

Output from the FORTRAN IV compiler 
includes a source listing, a list of the 
source statements exactly as they appeared 
in the input deck. The source listing is 
produced on SYSOPT. Any errors in the 
source statements are indicated in the 



source listing and appropriate error 
messages are written. (The format of the 
source listing is discussed and illustrated 
in the chapter "System Output.") In 
addition, the module produced by the 
compiler is written on SYS000, the linkage 
editor input unit. 

The programmer can override the 
production of any of this output by 
specifying compiler options in the EXEC 
FORTRAN statement. The NOSOURCE option 
suppresses the production of a source 
listing, except for the indication of 
errors. The NOLINK option suppresses the 
writing of the module on SYS000 . The 
programmer should specify NOLINK in a 
compile-only job or whenever the module is 
to be excluded from linkage editor 
processing during the same job. 

If a module is produced on SYS000, the 
programmer should name this module by 
specifying a name for the job step in the 
EXEC FORTRAN statement. The job step name 
becomes the module name. 

The programmer can reguest output in two 
additional forms, again via options in the 
EXEC FORTRAN statement. The compiler will 
produce a module deck (the module, written 
on SYSPCH) if the programmer specifies DECK 
in the EXEC statement. The module deck can 
be used in a subsequent job as input to the 
linkage editor. 

A compiler storage map is written on 
SYSOPT if the programmer specifies MAP in 
the EXEC statement. This storage map 
includes a list of all the variables (both 
local and COMMON variables) that were 
defined in the source statements just 
compiled. (The contents of the compiler 
storage map are discussed and illustrated 
in the chapter "System Output.") 

Batch Comp ilatio n 

Compilations may be batched; that is, one 
ExEc FORTRAN statement may serve for more 
than one compilation. When batching, the 
source input for one compilation, 
terminated by an END statement, is followed 
immediately by the source input for the 
next compilation. The /* statement 
signifies the end of the batch of 
compilations. The compiler options 
specified on the EXEC FORTRAN statement 
apply throughout the batch. 

The names for the modules produced on 
SYS000 are generated by the compiler from 
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the job step name in the EXEC FORTRAN 
statement. If the step name is ABCDEF, the 
name of the first module is ABCDEF, the 
name of the second module is ABCDEF01 , etc. 
If the step name is ABCDEFGH, the first 
module is named ABCDEFGH, the second is 
named ABCDSF01, etc. If the step name is 
ABCDEF01, the first module is named 
ABCDEF01, the second module is named 
ABCDEF02, etc. 

No more than 100 compilations may be 
processed in one batch. 



EDITING 

Editing is the execution of the linkage 
editor. The programmer reguests editing by 
placing in the job deck an EXEC statement 
that contains the program name LNKEDT (the 
name of the linkage editor) . This is the 
EXEC LNKEDT statement. 

Input to the linkage editor is a set of 
linkage editor control statements and one 
or more modules to be edited. These 
modules include either or both of the 
following : 

1. Modules that were compiled previously 
in the job and placed at that time on 
the linkage editor input unit, SYS000. 

2. Modules that were compiled in a 
previous job and saved as module 
decks. The module decks must be 
placed on SYSIPT along with the 
linkage editor control statements. 

In addition, the linkage editor will 
process modules that are in the module 
library. The module library is a 
collection of frequently used subprograms, 
such as the FORTRAN-supplied library 
subprograms, in the form of modules. The 
module library is on the unit named SYSREL. 
(Information about the functions and use of 
FORTRAN IV library subprograms can be found 
in the publication IBM System/360: FORTRAN 
IV Lib rary S ubprogram s, Form C2 8-6596.) 

Many FORTRAN programs contain references 
to FORTRAN-supplied library subprograms. 
Some references are explicit: for example, 
the statement B = SQRT(A) contains an 
explicit reference to the square root 
library subprogram, which computes, in this 
case, the square root of A. Other 
references are implicit: for example, the 
statement C = D**5 contains an implicit 
reference to the exponential library 
subprogram, which computes, in this case, 
the value of D raised to the fifth power 

When the linkage editor processes a 
module that makes use of a library 
subprogram, it automatically searches the 



module library for the requested subprogram 
module and processes it along with the 
module that requested it. It is possible 
to suppress this automatic linking facility 
by specifying NOAUTO as an option in the 
EXEC LNKEDT statement. In doing so, the 
programmer accepts responsibility for 
ensuring that all library subprograms 
required by a FORTRAN program are included 
in linkage editor processing. 

Output from the linkage editor is one or 
more phases. A phase may be an entire 
program or it may be part of a multiphase 
program. 

A phase produced by the linkage editor 
can be executed immediately after it is 
produced (that is, in the job step 
immediately following the linkage editor 
job step) . Or it can be executed later, 
either in a subsequent job step of the same 
job or in a subsequent job. In either of 
the latter cases, the programmer must 
specify KEEP as an option in the EXEC 
LNKEDT statement in order to retain the 
phase output. Otherwise, the phase output 
is retained only for the duration of one 
job step after the linkage editor job step. 

In addition to the phase, the linkage 
editor produces a phase map on SYSLST. The 
contents of the phase map are discussed and 
illustrated in the chapter "System Output." 
The programmer can suppress the production 
of a phase map by specifying the NOMAP 
option in the EXEC LNKEDT statement. 

Linkage Edi tor Control Statements 

Linkage editor control statements direct 
the execution of the linkage editor. 
Together with any module decks to be 
processed, they form the link age edito r 
input deck, which is read by the linkage 
editor from SYSIPT. If SYSIPT and SYSRDR 
are assigned to the same unit, the linkage 
editor input deck should be placed after 
the EXEC LNKEDT statement in the job deck. 

There are three linkage editor control 
statements that may be used by the FORTRAN 
programmer: the MODULE statement, the 
PHASE statement, and the INCLUDE statement. 
The discussion of these statements in this 
chapter is limited to the function and use 
of each statement. The rules for writing 
each statement are given in a subsequent 
chapter, "Control Statements." 

The MODULE statement is required 
whenever a module deck is included on 
SYSIPT in the linkage editor input deck. 
One MODULE statement must precede each 
module deck; each MODULE statement must 
specify a name for the module deck it 
precedes. The MODULE statements and their 
associated module decks must appear first 
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in the linkage editor input deck; no other 
linkage editor control statements may 
precede them. 



As soon as a MODULE statement has been 
processed, the module deck following it is 
copied onto the linkage editor input unit, 
SYS000. Thereafter, it is treated exactly 
as any modules already on that unit (that 
is, the modules placed there earlier by the 
FORTRAN IV compiler) . 

The PHASE statement is used to specify a 
name for the phase that is to be produced 
by the linkage editor and to indicate the 
origin of the phase, that is, the first 
main storage location that is to be 
occupied by the phase when it is loaded. 
For a single-phase program, the origin is 
specified as the letter S, which indicates 
the first main storage location available 
to a problem program. 

The INCLUDE statement identifies a 
particular module for inclusion in a phase. 
There must be one INCLUDE statement for 
each module that is to be included (except 
for those subprogram modules in the module 
library that will be linked automatically); 
all of the INCLUDE statements for a 
particular phase must immediately follow 
the PHASE statement that names the phase. 
The order of the INCLUDE statements 
indicates the order in which modules are to 
be included in the phase. 



Each INCLUDE statement 
module by name. For a mo 
that was produced by the 
earlier in the job, the m 
same as the name in the E 
the compilation job step, 
that are created during b 
are treated differently, 
module has the same name 
For the second batch modu 
padded on the right with 
a 1 to provide an 8-chara 
as the last two character 
step name was more than s 
01 digits replace the sev 
characters. However, if 
is eight characters, the 
are numerical (NN) , the s 
characters are replaced b 
are egual to NN + 1. The 
incremented by 1 for each 
in the batch. 



must identify the 
dule on SYS000 
FORTRAN compiler 
odule name is the 
XEC statement for 

Kodule names 
atch compilations 

The first batch 
as the jot step. 
le, this name is 
numeric zeros and 
cter name with 01 
s . If t he jo b 
ix characters, the 
enth and eighth 
the job step name 
last two of which 
eventh and eighth 
y two digits which 
se digits are 

subseguent module 



The INCLUDE statement must also indicate 
the location of the module. If the module 
is on SYS000, the programmer must specify 
the letter L; if the module is in the 
module library, he must specify the letter 
R. An INCLUDE statement is reguired for 
modules in the module library if the 
modules have not been referred to in the 



source program or if the automatic linking 
facility has been suppressed. 

The PHASE and INCLUDE statements can be 
omitted from the linkage editor input deck 
if all of the following conditions exist: 

1. Only one phase is to be produced by 
the linkage editor. 

2. All of the modules on SYS000, 
including any that are to be copied 
from module decks on SYSIPT, are to be 
included in the phase. 

3. The modules are to te included in the 
phase in the order in which they 
appear on SYS000. 

If the programmer omits the PHASE and 
INCLUDE statements, the linkage editor will 
generate these statements. The name of the 
phase will be the name of the first module 
included in the phase. The origin of the 
phase will be the first main storage 
location available to a problem program 
(equivalent to a specification of S) . 

Note that the programmer must omit both 
the PHASE and the INCLUDE statements if he 
wishes to use this feature. In other 
words, a PHASE statement in the linkage 
editor input deck must always be 
accompanied by a set of INCLUDE statements 
and vice versa. 



PHASE EXECUTION 

Phase execution is the execution of the 
problem program, for example, the program 
written by the FORTRAN programmer. If the 
program is a multiphase program, phase 
execution actually entails the execution of 
all the phases in the program. 

The phase(s) to be executed must be in 
the phase librar y. The phase library is a 
collection of executable phases from which 
programs are loaded by the supervisor. A 
phase is written in the phase library by 
the linkage editor at the time the phase is 
produced. It is retained in the phase 
library if the programmer has so requested 
via the KEEP option in the EXEC LNKEDT 
statement. 

The programmer requests the execution of 
a phase by placing in the job deck an EXEC 
statement that specifies the name of the 
phase. If the phase to be executed was 
produced in the immediately preceding job 
step, however, its name need not be 
specified in the EXEC statement. 

The programmer can also request, via the 
EXEC statement, that the setting of the 
variable precision switch be checked. This 
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switch, which is set manually by the 
operator, indicates the level of precision 
at which floating-point operations are 
performed. Precision may be 8, 10, 12, or 
14 bits. In general, the highest precision 
provides greatest accuracy and the lowest 
precision provides greatest speed. 
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MULTIPHASE PROGRAMS 
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A multiphase proqram may have either of 
two structures. The first of these is a 
complete pha se overlay structure, permitted 
for a proqram of two or more phases. Only 
one phase of the proqram is in the problem 
proqram area at any qiven time, each phase 
completely replacinq, or overpaying , the 
previous phase. 
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In order to choose the overlay structure 
best suited for his proqram, the proqrammer 
should examine the proqram for subprogram 
structures . A subproqram structure is a 
series of two or more subproqrams, the 
first of which is called by the main 
program; the second subprogram is called by 
the first subprogram, the third is called 
by the second, and so on. For example, 
every FORTRAN main program contains a call 
to the library subprogram IBCOM; the IECOM 
subproqram contains a call to the library 
subprogram FIOCS; in turn, FIOCS calls the 
library subprogram UNITAB. Thus, it can be 
said that every FORTRAN main program uses 
the subprogram structure consisting of 
IBCOM, FIOCS, and UNITAB. As a second 
example, consider the group of subprograms 
A, B, C, and D. Subprogram A contains a 
call to subprogram B, which, in turn, 
contains calls to subprograms C and D. In 
this example, two subproqram structures 
exist — the first consisting of the 
subprograms A, B, and C, the other 
consisting of the subprograms A, B, and D. 



The root phase overlay structure may be 
used whenever the problem program area is 
large enouqh to include the entire main 
proqram, the common area (when applicable) , 
S"d f^e largest s'.ih^rncirsn! or subDrocfrarn 
structure used by the main proqram. 
Otherwise, the complete overlay structure 
must be used. 

Allocation of COMMON by the Linkage Editor 



editor allocates a common area equal in 
size to the largest common area reguired by 
any phase. The common area is present in 
main storage throughout the execution of 
the entire program. Parameters may be 
passed through the common area from one 
phase to another, making possible 
communication between phases. 



Loading, of Phases 
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Since the calling statements differ, 
depending on the type of overlay structure 
being used, they are discussed in detail in 
the appropriate section, that is, "Complete 

DViacQ nv^T-lav" nr- "Rnn + PJiaco Dvarlav." 



COMPLETE PHASE OVERLAY 
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complete phase overlay structure 
ires that a FORTRAN main program be 
ded into two or more main programs, one 
each phase of the multiphase program. 

the original main program has been 
ded by the programmer, each newly 
ed main program, together with the 
rograms and subprogram structures it 
, is processed to form one phase of the 
program. 



or example, consider a FORTRAN main 
ram that consists of 300 source 
ements and makes use of eight 
rograms, named A through H. Assume 

this main program can be divided into 
e parts of 100 statements each, so that 
three parts make use of subprograms A, 
nd C, only part 1 makes use of 
rograms D and E, only part 2 makes use 
ubprograms F and G, and only part 3 
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makes use of subprogram H. The result is a 
three-phase program: the first phase 
includes part 1, as the main program, and 
subprograms A f B, C, D, and E; the second 
phase includes part 2, as the main program, 
and subprograms A,B,C,F, and G; the third 
phase includes part 3, as the main proqram, 
and subprograms A,B,C, and H. 

Calling Statem ent for Complete Phase 
Overlay 

To reguest that a new phase be loaded, the 
programmer must place the following CALL 
statement in his source^ program: 

CALL LINK ('phasename') 

This statement causes the phase whose name 
is specified to be loaded into the problem 
program area. In addition, control is 
given to the newly loaded phase, which then 
begins execution. 

The phase name specified in the CALL 
statement must be the name of the phase as 
specified in a linkage editor PHASE 
statement. 

Since the CALL LINK statement causes 
control to be transferred to a new phase, 
it should appear as the last executable 
statement in each phase except the last. 

The following illustrates the CALL LINK 
statement: 

CALL LINK ('PHASEC') 

This statement results in the loading of 
PHASEC by the supervisor and the transfer 
of control to PHASEC. 

Li nkage Editor Control Statements 

Linkage editor control statements for a 
multiphase program using complete phase 
overlay are specified exactly as they would 
be for a single-phase program. The linkage 
editor input deck differs in that there 
must be one PHASE statement for each phase 
in the proqram. Each PHASE statement must 
specify a unique phase name; as in the case 
of a single-phase program, the origin of 
each phase should be specified by the 
letter S. A set of INCLUDE statements must 
follow each PHASE statement to indicate 
which modules are to be included in the 
phase. 

The first PHASE statement in the linkage 
editor input deck identifies the phase that 
is to be loaded and executed first, unless 
the programmer explicitly specifies the 



name of another phase in the EXEC statement 
for phase execution. For example, with the 
following set of control statements, PHASEA 
would be executed first: 



// EXEC 
PHASE 
INCLUDE 
INCLUDE 
PHASE 
INCLUDE 

/* 

// EXEC 



LNKEDT 

PHASEA, S 

M0D1,L 

M0D2,L 

PHASEB,S 

M0D3,L 



However, the last statement could have been 
written: 



// EXEC 



PHASEB 



In this case, PHASEB would be loaded and 
executed first. 



ROOT PHASE OVERLAY 

The root phase overlay structure reguires 
that the entire FORTRAN main program be 
included in a root phase, together with 
some of the subprograms it uses. The 
remaining subprograms are incorporated into 
two or more subordinate phases, so that the 
root phase and the largest subordinate 
phase can reside in the problem program 
area simultaneously. 

The programmer can construct subordinate 
phases of several levels. A first-level 
subordinate phase is one that is loaded as 
the result of a call from the root phase; 
the origin of such a phase usually is the 
first available location following the root 
phase. A second-level subordinate phase is 
one that is loaded as the result of a call 
from a first-level phase; its origin 
usually is the first available location 
following the first-level phase. A 
third-level subordinate phase is one that 
is loaded as the result of a call from a 
second-level phase, and so on. When phases 
of several levels are used, the root phase 
and the largest subordinate pha se 
structure -- a series of two or more levels 
of subordinate phases — may not exceed the 
size of the problem program area. 

Figure 2 gives an example of a root 
phase overlay structure in the problem 
program area. In this illustration, ROOT 
is the root phase; A, B, and C are 
first-level subordinate phases; AA and CC 
are second-level phases. Two subordinate 
phase structures exist. One consists of 
phases A and AA; the other is made up of 
phases C and CC. 
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ROOT 




Figure 2. Root Phase Overlay Structure 



The proqrammer is free to structure his 
subordinate phases in the way that best 
suits the needs of his program. 



Statement for R oot Phase Overlay 

To request that a new phase be loaded, 
the programmer must place the following 
CALL statement in his source program: 

CALL LOAD ( ' phasename • ) 



ml. ■? i~ r~ *■ ■ 
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is specified to be loaded into the problem 
program area. However, control returns to 
the next statement in the calling phase; it 
is not transferred to the newly loaded 
phase. 

The phase name specified in the CALL 
statement must be the name of the phase as 
specified in a linkage editor PHASE 
statement. 

After the reguested phase has been 
loaded, the programmer can use any 
subprogram within it by means of a CALL 
statement addressinq that subprogram. For 
example, consider a first-level subordinate 
phase ALPHA incorporating the subprograms 
BETA and GAMMA. The following sequence of 
statements in the root phase will cause 
phase ALPHA to be loaded and subprogram 
GAMMA to be executed: 

CALL LOAD ('ALPHA') 

CALL GAMMA (X,Y,Z) 



Note that it is permissible to pass 
arguments (represented here by X, Y, and Z) 
from one phase to a subprogram in another 
phase. Once the called subprogram has been 

made to the calling phase (in the above 
example, from phase ALPHA to the root 
phase) . 

Linka ge Editor Control Sta tements 

There must be one PHASE statement in the 
linkaqe editor input deck for each phase of 
a multiphase proqram usinq root phase 
overlay. Each PHASE statement must specify 
a unique phase name= The origin of each 
phase is specified as follows: 

1. The word ROOT is specified for the 
origin of the root phase. This causes 
the phase to be loaded at the first 
available location in the problem 
program area. The specification ROOT 
differs from the specification S in 
that it identifies the root phase to 
the linkage editor. 

2. The character * (asterisk) can be 
specified to set the origin of a 
subordinate phase at the first 
location following the most recently 
processed phase. For example, assume 
that the first PHASE statement in the 
deck refers to the root phase; 
accordingly, its origin is specified 
by ROOT. Assume that the next PHASE 
statement refers to a first-level 
subordinate phase named ALPHA. The 
origin of ALPHA should be specified by 
* to cause it to be loaded into the 
area immediately following that 
occupied by the root phase. If the 

second-level subordinate phase named 
BETA that is called by phase ALPHA, 
the origin of BETA should also be 
specified by * to cause it to follow 
phase ALPHA in storage. 

3. The name of a phase currently in the 
phase library (this includes all 
phases previously created in this job 
step) can be specified to set the 
origin of the current phase equal to 
the oriqin of the phase whose name is 
specified. For example, consider 
aqain the linkaqe editor input deck 
discussed in point 2, above. Assume 
that the next PHASE statement (after 
the PHASE statement for BETA) refers 
to another first-level subordinate 
phase named GAMMA. Phase GAMMA should 
have the same oriqin as phase ALPHA, 
namely, the first available location 
followinq the root phase. This can be 
accomplished by specifyinq the phase 
name ALPHA as the oriqin in the PHASE 
statement for GAMMA. 
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If phase GAMMA calls another 
second-level phase named ETA, its PHASE 
statement should be the next PHASE 
statement in the linkaqe editor input deck. 
The oriqin of ETA can be specified by 
DELTA, since ETA and DELTA are both 
second-level phases called by GAMMA and 
should have the same oriqin. 

From the examples qiven thus far, it can 
be seen that phases should be processed in 
a qiven order. The root phase should be 
processed first, followed by a first-level 
subordinate phase, followed by a 
second-level phase, if any, and so on. If 
a program is to be structured as shown in 
Figure 3, the order in which these phases 
should be processed and the oriqin that 
should be specified for each is: 




LINKAGE EDITOR OPERATION 

To the linkaqe editor each module it 
processes is a control section (CSECT) . 
Each CSECT has a name — the name of every 
CSECT that is a FORTRAN main proqram is 
MAIN44; the name of every subproqram CSECT 
is the subproqram name followed by an equal 
siqn. For example, the CSECT name for the 
subproqram SOBPRO is SDBPRO=. 

The linkaqe editor processes control 
sections accordinq to the followinq rules: 

1 . If a CSECT name matches the name of 
another CSECT in the same phase or in 
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Fiqure 3. Order of Phases 



the root phase, the new CSECT is not 
included in the current phase. For 
example, an attempt to include two 
main proqrams (both -have the CSECT 
name NAIN44) in one phase causes the 
second main proqram to be iqnored. 

2. If a CSECT name matches the name of a 
CSECT in another phase (except the 
root phase) , the new CSECT is included 
in the current phase but a warninq 
messaqe is issued. The messaqe is 
numbered KA02I. (This does not hold 
true when the new CSECT is one 
automatically linked from the module 
library.) An example of this occurs 
when a complete overlay multiphase 
proqram is processed. Each phase 
contains a main proqram with CSECT 
name MAIN44. The linkaqe editor 
prints the KA02I messaqe for each main 
proqram it processes other than the 
first. However, in these instances 
the warninq messaqe can be iqnored. 



Define FILE Statements 

If a direct access data set is referred to 
in two or more subordinate phases, it 
should be defined in the main proqram with 
a sinqle DEFINE FILE statement. 
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Named COMMON and BLOCK data Areas 

It has already been mentioned that the 
linkage editor allocates a common area 
equal in size to the larqest common area in 
any phase. All references to COMMON are 
resolved to this area except for references 
to a named COMMON of the same name as a 
BLOCK DATA area. All references to such a 
named COMMON are resolved to the BLOCK DATA 
area, which is within a phase. 



This causes no problem when the complete 
phase overlay structure is used. However, 
for the root phase overlay structure, the 
danqer exists that a reference to named 
COMMON will be resolved to a BLOCK DATA 
area, even thouqh the phase containinq the 
BLOCK DATA is not in main storaqe. For 
this reason, a BLOCK DATA area of the same 
name as a named COMMON should appear only 
in the root phase. 



Job Processinq 29 



CONTROL STATEMENTS 



The Model 44 Programming System provides 
two types of control statements that can be 
used by the FORTRAN programmer: job 
control statements and linkage editor 
control statements. This chapter gives the 
rules for writing these control statements 
and describes each statement with respect 
to format and content. 



general, no blanks are permitted within the 
operand field. The exception to this rule 
occurs when a blank character is permitted 
within a specification. Otherwise, the 
first blank in an operand field causes any 
characters following the blank and 
preceding column 72 to be treated as 
comments. 



JOB CONTROL STATEMENTS 

Job control statements are designed for an 
80-column punched card format. Although 
certain restrictions must be observed, the 
statements are essentially free form. 
Information must start in column 1 and 
cannot extend beyond column 71. If the 
length of a statement exceeds 71 
characters, it may be continued on 
additional cards, as discussed later in 
this section. 

A statement may consist of from one 
through four fields. The crder of the 
fields in the statement are: the 
identifier field, the name field, the 
operation field, and the operand field. 

The identifier field occupies card 
columns 1 and 2. It contains a 
two-character combination that identifies 
the statement as a job control statement. 
The identifier combination for most job 
control statements is //. The exceptions 
are /& for the end-of-job statement, /* for 
the end-of-data statement, and *b (asterisk 
followed by a blank) for the comments 
statement. 

The name field begins in column 3 and 
may not extend beyond column 10. The name 
field is permitted in only the JOB, EXEC, 
ALLOC, and ACCESS statements. If the name 
field of a statement is not used, column 3 
must contain a blank. 



Column 72 in each card is the 
continuation column. A nonblank character 
in this column indicates that the statement 
is continued on the next card. The first 
card of a statement must contain the 
identifier field, the name field (if used), 
the operation field, and at least one 
specification of the operand field. The 
statement can be interrupted only after a 
comma used to separate two specifications. 

It is not necessary to fill up a card 
before continuinq the statement on a new 
card. The final comma may appear in any 
column before column 71; in this case, at 
least one blank must follow the comma and 
then comments may appear through column 71. 
The continuation character is punched in 
column 72. 

As many continuation cards as necessary 
may be used for a single statement. There 
must be a nonblank character in column 72 
of each card except the last. Each card 
4ttust contain the characters // in columns 1 
and 2. The operand field of the statement 
must always resume in column 16. If column 
16 of any continuation card is blank, the 
text on it and on any subsequent 
continuation cards for the statement is 
treated as comments. 

Columns 73 through 80 of all cards are 
iqnored by' the system and may be used for 
any purpose. 



The operation field, which identifies 
the statement by name (JOB, EXEC, etc.), 
may start in any column after column 3. If 
the statement has a name field, the 
operation field must be separated from the 
name field by at least one blank. 

The operand field follows the operation 
field, separated from it by at least one 
blank. The operand field usually consists 
of a series of specifications, separated 
from each other by commas or parentheses. 
Except where otherwise indicated, 
specifications should be punched in the 
order shown in the statement formats. In 



Comments in_ Job Control,. Statements 

There are several ways in which comments 
can appear in job control statements. All 
such comments are printed on SYSLST. 

As was already shown, comments can 
appear in job control statements that have 
an operand field. They are written after 
the operand field (or a portion of an 
operand field that is continued on another 
card) and separated from it by at least one 
blank. Comments can also be written as a 
series of continuation cards, the first of 
which has a blank in column 16. 
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For statements in which an operand field 
is permitted but is not being used, the 
absence of the field must be indicated by a 
comma and at least one blank before the 
start of any comments. 

Comments are also permitted in 
statements that do not have an operand 
field, such as the end-of-job (/&) 
statement, as long as the comments are 
preceded by at least one blank. 
Continuation cards may not be used, 
however, to extend these comments. 
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Character Set 



Statements may contain any of 39 alphameric 
characters recognized by the programming 
system. The term "alphameric characters" 
refers to both alphabetic and numeric 
characters. 

Alphabetic characters are defined for 
the system as the 26 letters, of the 
alphabet, A through Z, plus 3 special 
characters: $ # S. 

The numeric characters are the digits 
through 9. 

In addition to the 39 alphameric 
characters, the following characters may 
appear in job control statements, but only 
where specifically indicated in the 
statement formats: 

asterisk * 

comma , 

egual sign = 

parentheses { ) 
single guote • 

slash / 

All job control statements must be 
punched in the Extended 
Binary-Coded-Decimal Interchanqe Code 
(EBCDIC) . 

Statement Formats 

The job control statements are presented in 
this chapter in alphabetic order. For each 
statement, the statement format appears 
first, showing the contents of the 
identifier, name, operation, and operand 
fields. Immediately following each 
statement format is a specifications table, 



which indicates for each specification in 
the statement format the reason for 
specifying it and how to specify it. 



An attempt has been made to keep each 
statement format as simple as possible. 
For some statements, more complex 
specifications in the operand field are 
dealt with in additional tables, one for 
each of these more complex specifications. 
Tn an cases, tus reader is uzrecteu to tu© 
appropriate table in the specifications 
table following the statement format. 



The following notation is used in the 
state me lit formats: 



1. All upper-case letters represent 

specifications that are to appear in 
the actual statement exactly as shown 
in the statement format. For example, 
JOB in the operation field of the JOB 
statement should be punched exactly as 
shown — JOB 



All lower-case letters represent 
generic terms that are to be replaced 
in the actual statement. For example, 
jobname is a generic term that should 
be replaced by the name that the 
programmer is giving his job. 



Hyphens are used to join two or more 
words in order to form a single 
qeneric term. For example, 
data-length is one generic term. 



Brackets are used to indicate that a 
specification is optional and is not 
always required in the statement. For 
example, [CATLG] means that the word 
CATLG may or may not appear in the 
statement, depending on the 
programmer's requirements. 



Braces enclosing stacked items 
indicate that a choice of one item 
must be made by the programmer. For 
example : 



( 2400 ( 
I 1600 » 



means that either 2400 or 1600, but 
not both, mus t appear in the actual 
statement. 

Brackets enclosing stacked items 
indicate that a choice of one item 
may, but need not, be made by the 
programmer. For example: 
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["DEC* -i 

Lnodeck J 



means that either DECK or NODECK, but 
not both, may appear in the actual 
statement, or the specification can be 
omitted entirely. 

7. An underlined item represents the 

default option -- the choice that will 
be made by the proqramminq system if 
the proqrammer omits a specification. 
For example: 

rNOSOURCE-i 
L SOURCE J 

means that either NOSOURCE or SOURCE, 
but not both, may appear in the actual 
statement, or the specification can be 
omitted entirely (in which case SOURCE 
is assumed by the proqramminq system) . 



In other words, specifyinq SOURCE 
produces the same result as omittinq 
the specification entirely. 

Note : The default options shown in 
this publication are those that exist 
in the distributed version of the 
Model 44 Proqramminq System. However, 
these defaults can be altered by an 
installation durinq the system 
construction process or the system 
assembly process. 

All punctuation marks shown in the 
statement formats other than hyphens, 
brackets, braces, and underlines are 
punched exactly as shown. For 
example, [,NOAUTO] means that the 
specification, if present in the 
statement, should consist of the seven 
characters ,NOAUT0 so that the initial 
comma is included. 
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ACCESS State me nt .(Un it Record Dat a S ets) 
Id Name Operation Operand 

Idsname, 



i T 1 

j//| SYSxxx (ACCESS 



I I 



I type= i 
( devadr= j 



Specification | 



Reason for Specifying 



// 



4 

| Reguired 

4- 



How to Specify 



|As shown 
4- 



SYSxxx 



ACCESS 



[Reguired; associates the data I Any valid symbolic unit name 
| set with a symbolic unit name | 
-4 4 



dsname 



| Reguired 
-4 



| As shown 



| Reguired; indicates the name of|From one through eight alphameric 
|the data set (characters, the first of which must 

I | be a letter 

(type= j To identify, through its devicejOne of the unit record device type 



I 

devadr= 



|type code, the device to be 
| used 



|codes (see next chart) , followed by 
| an egual sign 



| To identify, throuoh its device|A three-character device address 

| address, the device to be used | (supplied by the installation), fol- 

| |lowed by an egual sign 
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Unit Rec ord Device Type, Codes : 



Code 



Meaning 



11442 
I 



1442P 



2520 



2520P 



2501 



2540 



2540P 



1403 
1 403M7 



| 

1443 



1443S 



-+ 



IBM 1442-N1 Card Read-Punch 






IBM 1442-N2 Card Punch 



IBM 2520 Card Read-Punch 
IBM 2520-B2, B3 Card Punch 






IBM 2501 Card Reader 



IBM 2540 Card Read-Punch 
(Reader side) 



IBM 2540 Card Read-Punch 
(Punch side) 

IBM 1403 Printer, Model 2, 3, or N1 
(132 characters) 



IBM 1403 Printer, Model 7 
(120 characters) 



IBM 1443 Printer, Model N1 
(120 characters) 



-H 



IBM 1443 Printer, Model N1 

(144 characters) Special Feature 



Not e: Each code is speci- 
fied as shown. 



Example : 

//SYS0C4 ACCESS CARED ATA, 14 42 : 



This statement causes an IBM 1442-N1 
Card Read Punch to be used for the data set 
named CARDDATA. The data set is associated 
with symbolic unit SYS004 (corresponding to 
data set reference number 4) . 



34 System/360 Model 44PS Guide to System Use FORTRAN 



ACCESS Statement (Tape Da ta Sets ) 

Id Name Operation Operand 



I//I SYbXXX j ACCESS j U toilduie, VO iUi!i€[ , EXT j 

I I I L 



SYSxxx 



l__ 



Specification | 
y. 



Reason for Specifyinq 



How to Speciry 



// 



ACCESS 
dsname 



1 

volume 



EXT 



-+- 



Required 



|As shown 

Required; associates the data I Any valid 
set with a symbolic unit name | 

Required 



[bolic unit name 



|As shown 
-+- 



Required; indicates the name of|From one throuqh eiqht alphameric | 

the data set (characters/ the first of which must | 

| be a letter; for labeled tapes, the | 

|data set name as contained in the | 

|data set label | 

^ H 



Required; identifies the device|The tape volume desiqnation (see 
and volume to be used |next chart) | 
+ 4. -I 

Indicates that data is to be | As shown | 

added to the data set I I 
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Tape Volume Des i gnat ion : 

/type ) [ (options) ] ^'volid') 
{devadrj \= f 



| Specification 
type 



j 

devadr 



(options) 



=» volid 1 



Reason for Specifying 



To identify, throuoh its devic* 
type code, the device to be 
used 



| How to Specify 

One of the tape device type codes 
(see below) 



To identify, through its devic* 
address, the device to be used 



To specify tape options for 
tape units with device type 
codes (see below) 2400T7, 
2400T7C, or 24C0D 



To identify, through its volid 
the tape volume to be used 



To indicate that the tape has 
no volid; permitted for unla- 
beled tapes only 



A three-character device address 
(supplied by the installation) 



From one through four tape options 
(see below), separated by commas; 
the list must be enclosed in paren- 
theses 



From one through six characters (for 
labeled tapes, the volume serial 
number from the volume label) , en- 
closed in single quotes; an equal 
sign must precede the first quote 

An equal siqn 



Tap e Device Typ e Cod es 



Code 



2400 



2400H 



2400D 



Meaning 



2 40 0T7 



| IBM 2400 Magnetic Tape Unit with 

| 9-track read/write head; 800 bpi only 



2400T7C 



| IBM 2400 Magnetic Tape Unit with 
| 9-track read/write head; 1600 bpi 
|only 



| IBM 2400 Magnetic Tape Unit with 

| 9-track read/write head; dual density 



| IBM 2400 Magnetic Tape Unit with 
|7-track read/write head 



| IBM 2400 Magnetic Tape Unit with 
|7-track read/write head and the 
IConvert Feature 
j 



Note ; Each code 
fied as shown. 



is speci- 
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Tape Options : 

For tape units of device type code 2400T7: 

For tape units of device type code 2400T7C: 

For tape units of device tvpe code 2400D: 



200 

556 
800 

200 

J-J u 

800 



r 800 1 
[ 1600J 



\l 



T 
NT 



tei r t 



nc 



Option 



Meaning 



i?nn 



ITn inrlirat p a tano AoriQ-i+v nf 900 hni I 



556 

I 

800 



-H 

To indicate a tape density of 556 bpi| 

Default option; indicates a tape den- 
sity of 800 bpi 



16C0 



1- 



NT 
NC 



To indicate a tape density of 1600 
bpi 



-J 



To indicate even parity; should not 
be specified unless NC is specified 



Default option; indicates odd parity 

To indicate that the translate fea- 
ture is to be used; should not be 
specified unless NC is specified 



Default option; indicates that the 
translate feature is not to be used 



To indicate that the convert feature 
is net to be used; required if either 
E or T is specified 



Default option; indicates that the 
convert feature is to be used 



Exampl e: 

//SYS004 ACCESS TAPEDATA, 2400D ( 16 00) =' T7063' 



Wn + o ■ Hn+i nnc mav annoar -in 

the option list in any or- 
der; each option is speci- 
fied as shown. 



This statement causes an IBM 2400 
Magnetic Tape Unit with 9-track read/write 
head and dual density to be used for the 
data set named TAPEDATA. The tape density 
is 1600 bytes per inch. The data set is 



located on the volume whose volid is T7063; 
the data set is associated with symbolic 
unit SYS004 (corresponding to data set 
reference number 4) . 
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ACCESS Statement [ Di rec t Access Data Sets}. 

Id Name Operation Operand 



1//| [SYSxxx] | ACCESS |dsname[ (member names) ][ , volume ][ , EXT ][ , NEW ]f , UNDEF ] 



ACCESS 

I 

dsname 



Specification | 
-f 



// 



SYSxxx 



(member names) 



volume 



Reason for Specifying 



EXT 



I 

NEW 



UNDEF 



Peguired 



| How to Specify 

i 

As shown 



Associ 

member 

set, w 

(a mem 

ter na 

operan 

if no 

tended 

exampl 

delete 

subseg 



ates 

of 
ith 
ter 
mes 
d fi 
data 

for 
e, t 
d, c 
uent 



the 
a di 
a sy 
is a 
are 
eld) 
tra 
the 
he d 
onde 
ly i 



data set, 
rectoried 
mbolic uni 
ssociated 
specified 
; may be o 
nsmission 

data set 
ata set is 
nsed, or r 
n the job) 



or a 
data 
t name 
if mem- 
in the 
mitted 
is in- 
(for 

to be 
enamed 



Peguired 



Reguired; indicates the name o: 
the data set 



For directoried data sets only 
reguired when an existing mem- 
ber is to be used or when a nei 
member is to be created; indi- 
cates one name of an existing 
member or one or more names of 
a new member 



+- 



To indicate the location of the 
data set; may be omitted for 
system data sets, cataloged 
data sets, or data sets speci- 
fied in a previous ACCESS or 
ALLOC statement within the job 



Indicates that data is to be 
added to the data set; not per- 
mitted if member names are spe- 
cified 



For directoried data sets only; 
reguired when a data set member 
is to be created 



+— 



Indicates that the data set is 
to be processed using the 
undefined-read method 



Any valid symbolic unit name 



As shown 



The name of the data set, as con- 
tained in the VTOC of the volume on 
which it is located 



One or more member names, separated 
by commas; the list must be enclosed 
in parentheses; each member name 
consists of from one through eight 
alphameric characters, the first of 
which must be a letter 



One of the disk volume designations 
(see next chart) 



As shown 



As shown 



As shown 
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Disk Vol um e De signations : 

To identify a volume through its volid: 



("type ) T(WRCHK) 1 ='volid' 

I rlovarir J I fWnWPrwm I 



To identify a volume through another data set it contains: 

SA1 



ME (WRCHfC) 1 
_(NOWRCHK)J 



=dsname \ 
= SYSxxx J 



Specification | 



Reason for Specifying 



-I— 



How to Specify 



type 



devadr 



I 

(WRCHK) 



I 



(NOWRCHK) 



='volid ' 



SAME 



= d s n a m e 

I 

=SYSxxx 



To identify, through its device 
type code, the device to be 
used 



One of the direct access device type 
codes (see below) 



To identify, through its device 
address, the device to be used 



A three-character device address 
(supplied by the installation) 



To indicate that write validity 
checking is to be performed for 
the data set 



As shown, enclosed in parentheses 



To indicate that write validity 
checking is not to be performed 
for the data set 



As shown, enclosed in parentheses 



To identify the disk volume 
that contains the data set; re- 
quired if type or devadr is 
specified 



The volume serial number from the 
volume label, enclosed in single 
quotes; an equal siqn must precede 
the first quote 



— + 



Required when the volume is be- 
ing identified through another 
data set it contains 

+ 



As shown 



To identify the other data set 
by name 



An e n u a 1 s i a n followed b v the name 
of the other data set 



To identify the ether data set 
through the symbolic unit name 
currently associated with it 



An equal sign followed by the sym- 
bolic unit name associated with the 
data set 



Direct Access Device Type C ode s : 



Code 



SDSD 



11316 



Meaning 



| Single Disk Storage Drive 
| (2315 Disk Cartridge) 



| IBM 1316 Disk Pack mounted on 
| an IBM 2311 Disk Storage Drive 



Not e : Each code is speci- 
fied as shown. 
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ALIOC Statement (Tape. Data Setsj 

Id Name Operation Operand 



|//| SYSxxx | ALIOC |dsname,volume[ ,CATLG ] 



Specification 



SYSxxx 

AILCC 



// 



— + 



dsname 



I 

volume 



CATLG 



Reason for Specifying 



Required 



How to Specify 



| As shown 
-H 



Required; associates the data I Any valid symbolic unit name 
set with a symbolic unit name | 

Required |As shown 

4- 



Required; indicates the name of|From one through eiqht alphameric 
the data set (characters, the first of which must 

| be a letter 

+- 



Required; identifies the device|The tape volume designation (see 
and volume to be used |next chart) 
H 



To enter the data set into the |As shown 
system catalog | 
1 
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Tape Volume Designation : 
[ (options) ] 



('type ) 
\ devadr j 



j =«vclid» } 
{ =FRESH J 



| Specification | Reason for Specifying 
type 



devadr 



To identify, through its devici 
address, the device to be used 

(options) 



=«volid' 



=FRESfl 



To identify, through its device 
type code, the device to be 
used 



To specify tape options for 
tape units with device type 
codes (see below) 2400T7, 
2400T7C, or 24G0D 



To identify, through its volid , 
the tape volume to be used 



To indicate that a fresh tape 
volume is to be used 



How to Specify 



A £1 -.7 "i ~ ~ *■ ■ 



urie oj_ Lfit; Laps uevice typ* 
(see below) 



A three-character device address 
(supplied by the installation) 



From one through four tape options 
(see below), separated by commas; 
the list must be enclosed in paren- 
theses 



From one through six characters (for 
labeled tapes, the volume serial 
number from the volume label) , en- 
closed in single guotes; an egual 
sign must precede the first quote 



As shown, preceded by an egual sign 



Tape D evice Ty pe._Codes : 



Code 



I 

2400H 



2400 



2 4C0D 



2 40 0T7 
2U00T7C 



Meaning 



IBM 2400 Magnetic Tape Unit with 
9-track read/write head; 800 bpi only 



IBM 2400 Magnetic Tape Unit with 
9-track read/write head; 1600 bpi 
only 



IBM 2400 Magnetic Tape Unit with 
9-track read/write head; dual density 

-H 



IBM 2400 Magnetic Tape Unit with 
7-track read/write head 



IBM 2400 Magnetic Tape Unit with 
7-track read/write head and the 
Convert Feature 



Note : Each code is speci- 
fied as shown. 
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Tape Opt ions : 

For tape units of device type code 2400T7: 

For tape units of device type code 2U00T7C 

For tape units of device type code 2400D: 



200 




E 




T 






556 
800 









JT 




200 ~ 




■p 


r T ] 




NC 


556 
800 







[nt_ 




C 


800 " 
1600 















Op"tion 



Meaning 



| 200 

I 

I 556 

I 

I 800 



1600 



|To indicate a tape density of 200 bpi 



-+- 



|0 

I 

|T 

I 

I 



NT 



|NC 



IC 
I 



To indicate a tape density of 556 bpi 



Default option; indicates a tape den- 
sity of 800 bpi 

To indicate a tape density of 1600 
bpi 

To indicate even parity; should not 
be specified unless NC is specified 



Default option; indicates odd parity 

To indicate that the translate fea- 
ture is to be used; should not be 
specified unless NC is specified 



Default option; indicates that the 
translate feature is not to be used 



To indicate that the convert feature 
is net to be used; required if either 
F or T is specified 

^ 



Default option; indicates that the 
convert feature is to be used 



Note: Options may appear in 
the option list in any or- 
der; each option is speci- 
fied as shown. 



Example : 

//SYS003 ALLOC NEWDATA, 2400T7C (556) =FRESH 



The statement causes an IBM 2400 
Maqnetic Tape Unit with a 7-track 
read/write head and the convert feature to 
be used for the data set named NEWDATA. 
The tape density is 556 bytes per inch; 
default options indicate odd parity, the 



nonuse of the translate feature, and the 
use of the convert feature. The data set 
is assigned to a fresh tape volume and 
associated with symbolic unit SYS003 
(corresponding to data set reference number 
3) • 



42 System/360 Model 44PS Guide to System Use FORTRAN 



ALLOC Statem ent (Direct Access Data Sets) 



Id 



Name 



Operation Operand 



|//| [SYSxxx] | ALLOC |dsname[ ,volume ], data length[ ,directory length ][ , FMT ][ , CATLG 1 | 



// 
I 

SYSxxx 



I 

ALLOC 



Specification 



Reason for Specifying 



Required 



How to Specify 



As shown 



To associate the data set with 
a symbolic unit name 



Any valid symbolic unit name 



Required 



As shown 



dsname 



Required; indicates the name of 
the data set 



From one through eight alphameric 
characters, the first of which must 
be a letter 



volume 



Identifies the device and/or 
volume on which space for the 
data set is to be allocated; 
required unless the data set is 
to be allocated on the sytem 
residence volume 



One of the disk volume disignations 
(see next chart) 



data length 



Required; indicates the number 
of blocks to be allocated for 
the data set 



A decimal number from 1 through 
65535 



directory length 



FMT 



CATLG 



Required for a directoried data 
set only; indicates the number 
of entries in the directory, 
one for each member name 



A decimal number from 1 through 
65534 



Required if FORTRAN direct ac- 
cess input/output operations 
are to be performed on the data 
set 



As shown 



To enter the data set into the 
system catalog 



As shown 
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Disk Volume De signations : 

To request a fresh volume or a volume havinq a particular volid 



( type 1 
\ devadr j 



(WRCH^) 
_(NOWRCH"")_ 



To request a volume that contains another particular data set 

SA 



/=FRFSH } 
\ =• volid'/ 



MERWRCHK) I j"=dsname} 

|_(NOWRCHK)J \=SYSxxx/ 



| Specification 



Reason for Specifyinq 



How to Specify 



h~ 



-4— 



— h 



type 



devadr 
(WRCHK) 



(NOWRCHK) 



= FRESH 



=' volid* 



+• 



To identify, throuqh its device 
type code, the device to be 
used 



To identify, throuqh its device 
address, the device to be used 



To indicate that write validity 
checkinq is to be performed for 
the data set 



To indicate that write validity 
checkinq is not to be performed 
for the data set 



To indicate that a fresh disk 
volume is to be used 



To identify, throuqh its volid, 
the disk volume to be used 



One of the direct access device type 
codes (see next chart) 



A three-character device address 
(supplied by the installation) 



As shown, enclosed in parentheses 



As shown, enclosed in parentheses 



As shown, preceded by an equal siqn 



The volume serial number from the 
volume label, enclosed in sinqle 
quotes; an equal siqn must precede 
the first quote 



SAME 



=dsname 



Reguired when a volume contain- 
inq another particular data set 
is to be used 



As shown 



To identify the other data set 
by name 



An equal siqn followed by the name 
of the other data set 



=SYSxxx 



To identify the ether data set 
throuqh the symbolic unit name 
currently associated with it 



An equal sign followed by the sym- 
bolic unit name associated with the 
data set 
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Direct Acc ess Device Type Codes : 



Code 

i 

jSDSD 

I 

|1316 



Meanina 



ISinqle Disk Stcraqe Drive 
| (2315 Disk Cartridae) 



Note : Each code 
fied as shown. 



is speci- 



| IBM 1316 Disk Pack mounted on 
| an IBM 2311 Disk Storage Drive 



— ^ 



Ex ampl e : 

//SYS002 ALLOC DISKDATA, 1 3 1 6 (NOWRCHK) =' D0036 ' , 50 



This statement causes 50 blocks of space 
to be allocated on an IBM 1316 Disk Pack 
for the data set named DISKDATA. The disk 
pack has the volume identification D0036. 
No write checking is performed for the data 
set, which is associated with symbolic unit 



SYS002 (corresponding to data set reference 
number 2) . 



(Notej. This statement must be immediately 
followed by a LABEL statement.) 
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CATL G Stateme nt 
Id Name Operation Operand 



I L 



| CATLG |dsname[ ,volume ] 



Specification 



// 



Reason for Specifying 



How to Specify 



Required 



As shown 



CATTG 



dsname 



volume 



Required 



As shown 



Required; indicates the name of 
the data set to be entered into 
the system catalog 



From one throuqh eiqht alphame 
characters, the first of which 
be a letter; may not duplicate 
data set name already in the c 



ric 

must 

any 
ataloq 



Indicates the location of the 
data set to the system; may be 
omitted for a system data set 
or a data set specified in a 
previous ALLOC or ACCESS state- 
ment within the job 



The cataloqinq volume desiqnation 
(see below) 



Cataloqinq Volume Desiq nat ion : 



type[ (options) l='volid' 



i 1 r 

| Specification | Reason for Specifyinq | 

type | To identify the device contain-|Any of the unit record, tape, or 
|inq the data set by its device (direct access device type codes 
| type code llisted for the ACCESS statement 
+ 4- 



How to Specify 



(options) 



h 



= ' volid 



| To specify tape options or the |From one throuqh four options, sepa- 
|write checkinq options for |rated by commas; the list must be 
Idirect access devices (enclosed in parentheses (see the 

| | ACCESS statement for permissible 

| (options) 

+ 



| To identify, throuqh its volid, |The volume serial number, enclosed 
|the volume containinq the data |in sinqle quotes; an equal siqn must 
|set Iprecede the first quote 



Example : 

// CATLG DISKDATA,1376(NOWRCHK) =• D0036' 



This statement causes an entry for the 
data set named DISKDATA to be placed in the 
system cataloq. The data set is located on 



an IBM 1316 Disk Pack with volume 
identification D0036. No write checkinq is 
to be performed for the data set. 
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CONDENSE Statement 



Id 



Name 



Operation Operand 



i q n xj n p >] 5 -p i fl , 
J L 



j spetiiicatiun 
I 

I// 



i r nunPMQ-p 



1 

Idsname 
I 



reason lur D^euiiyxnq 



| Required 
-4 



j How to Specify 

| As shown 



I Roan -i Tcrl 



'As shown 

-i 






, 

| Required; indicates the name of j The name of the data set as con- j 
| the directcried data set to be |tained in the VTOC of the volume on | 
|condensed |which it is located | 

j ^ i i 



Example ; 

// CONDENSE DRCTRYB 



This statement causes the directoried 
data set named DRCTRYB to be condensed. 
After condensinq, all space in the data set 
follows the data set; all space in the 
directory follows the last entry in the 
directory. 
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DELETE Statemen t 
Id Name Operation Operand 



I L 



| DELETE |dsnamef (member names) 1 
j i 



Specification 



Reason for Specifying 



How to Specify 



// 



DELETE 



dsname 



(member names) 



Required 



Required 



| A s shown 

-+ 

| As shown 



— ^ 



Required; indicates the name of|The name of the data set as con- 
the data set that is to be de- Itained in the VTOC of the volume on 
leted or from which one or more|which it is located 
member names are to be deleted | 

4 



For directoried data sets only; |One or more member names, separated 
to delete one or more member | by commas; the list must be enclosed 
names from a data set (deletinq|in parentheses; each member name 
all the names cf a particular |must appear exactly as specified in 
member deletes the member) |the ACCESS or RENAME statement that 

lassiqned the name to the member 



Exam ple: 

// DELETE DISKDATA 



This statement causes the data set named 
DISKDATA to be deleted frcm the volume on 
which it is located. Its name is removed 
from the volume table of contents (VTOC) 
and from the system catalog, if applicable. 
(Not e; This statement must be preceded in 
the job deck by an ALLOC or ACCESS 
statement that refers to DISKDATA.) 
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EXEC Statement (FORTRAN) 



Id 



Name 



Operation Operand 



|//| fstepname 1 1 EXEC | FORTRAN[ (parameter list) ][ , (VPSnn) ][ , accounting information! | 



Specification 



// 



stepname 



EXEC 



FORTRAN 



(parameter list) 



(VPSnn) 



Reason for Specifying 



Reguired 



To name the job step; reguired 
to naiie the T.odu^e produced b ,r 
the compiler, unless NOLINK is 
specified in the parameter list 



Peguired 



Reguired 



To specify compiler options 



To ensure that the variable 
precision switch is set to the 
value nn 



How to Specify 



As shown 



From one through eight alphameric 
characters, the first of which must 
be a letter 



As shown 



As shown 



From one through five parameters 
(see next chart) , separated by 
commas; the list must be enclosed 
in parentheses 



One of the following, enclosed in 
parentheses: 



VPSJ.4 
VPS12 



VPS10 
VPS08 



accounting 
information 



To satisfy any installation re- 
guirement 



From 1 through 16 alphameric charac- 
ters, the first of which must be 
other than a left parenthesis or a 
blank 
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Parameters' 



DECK 
NODECK 



NOSOURCE 
SOURCE 



NOT INK 
LINK 



BCD 
EBCDIC 



MAP 
NOMAP 



Parameter 



|DECK 
| 

INODECK 



INCSCURCE 

I 

I 



SOURCE 



NOLINK 



|LINK 

I 

I 



BCD 



I 

IEBCDIC 

I 

J 

I MAP 



Reason for Specifying 



NOMAP 



To produce a module deck on SYSPCP 



Default option -- no deck produced 



-H 



To suppress production of a source 
listing on SYSOPT 



Default option -- source listinq pro- 
duced on SYSOPT 



To suppress the writinq of the module 
on SYSCCO, the linkaqe editor input 
unit 

— 1 



Default option — module written on 
SYSOCO 



Required if any source statements are 
punched in BCDIC 



Default option -- source statements 
are punched in EBCEIC 



To produce a compiler storaqe map on 
SYSLST 



-H 



Default opticn — no compiler storaqe 
map produced 



Note: Parameters may appear 
in the parameter list in 
any order; each parameter 
is specified as shown. 
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EXEC Statement (LNKEDT) 
Id Name Operation Operand 



|//| [stepname ]| EXEC | LNKEDT[ (parameter list) ][ , accountinq information] 
i i i t 



| Specification | Reason for Specifying | How to Specify | 
i i i , ._ „,,,..,., i 


i i i ■ 1 

I// | Required |As shown | 


|stepname | To name the job step (From one throuqh eiqht alphameric | 
| | } Cu sir acters , cue tirst of wnich must j 
I I |be a letter I 
l i i i 


1 1 , | ] 

|EXEC | Required |As shown I 
i ii I 


1 I ... — _ ._ j ..... — . . 1 

JLNKEDT |Required |As shown I 


| (parameter list) | To specify linkaqe editor op- |From one throuqh three parameters | 
| Jtions j (see below), separated by commas; | 
J j jthe list must be enclosed in paren- j 
| | | theses I 


laccountinq |To satisfy any installation re-|From 1 throuqh 16 alphameric charac- | 
| information Iquirement Iters, the first of which must be | 
| | |other than a left parenthesis or a | 
I | | blank I 



Parameters: 



KEEP "I TNOMAP' 
NOKEEP I I MAP 



[NOAUTO] 



Parameter 



KEEP 



NOKEEP 



NOMAP 



MAP 



NOAUTO 



Reason for Specifyinq 



To retain 
by the lin 
phase exec 
to the job 
the linkaq 



the phase output produced 
kaqe editor; required if 
ution is desired subsequent 
step immediately followinq 
e editor job step 



Default op 
discarded 
immediatel 
itor job s 



tion - 
at the 
y foil 
tep 



- phase output is 

end of the job step 
owinq the linkaqe ed- 



To suppres 
map on SYS 



s the 
1ST 



production of a phase 



Default option -- phase map produced 
on SYSLST 



To suppress the automatic linkinq 
facility of the linkaqe editor durinq 
this job step 



Note: Parameters may appear 
in the parameter list in 
any order; each parameter 
is specified as shown. 
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EXEC Statement (P has e) 

Id Name Operation Operand 

i i 1 1 

I//I [ stepname ] | EXEC | [ phasename ]f , (VPSnn) ][ , accounting information! 



// 



Specification | Reason for Specifying 
Required 



stepname 



EXEC 



phasename 



(VPSnn) 



accountinq 
information 



-+ 



To name the job step 



Required 



To identify the phase that is 
+ q k^ executed" ma 17 be omitted 
if phase was produced by the 
linkaqe editor in the immedi- 
ately preceding job step 



To ensure that the variable 
precision switch is set to the 
value nn 



To satisfy any installation re- 
quirement 



How to Specify 



As shown 



From one throuqh eiqht alphameric 
characters, the first of which must 
be a letter 



As shown 



The name of the phase, exactly as 
specified on the PHASE card used at 
the time the phase was created 



One of the followinq, enclosed in 
parentheses: 



VPS1U 
VPS12 



VPS10 
VPS08 



From 1 throuqh 16 alphameric charac- 
ters, the first of which must be 
other than a left parenthesis or a 
blank 
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JOB Statement 
Id Name Operation Operand 



i 1 r 

i// i l jOunaiRe j j 



I I 



I L NOD UM P J 



s n p. t. i p. a information 1 



// 
I 

jobname 



Specification 



-+ 



JOB 



Required 



DUMP 



NCDUMP 



accountinq 
information 



Reason for Specifyinq 
Required 



How to Specify 



To name the job 



To produce a dump if the pro- 
qram terminates abnormally; the 
contents of main storaqe and of 
the qeneral reqisters are writ- 
ten on SYSLST 



Default opticn -- no dump pro- 
duced 



To satisfy any installation re- 
quirement 



As shown 



From one throuqh eiqht alphameric 
ch aracteLis , the first of which must 
be a letter 



As shown 



As shown 



As shown 



From 1 throuqh 16 alphameric charac- 
ters, the first of which must be 
other than a left parenthesis or a 
blank 
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LABEL Statement 



Id 



I//I 
I I 
i I 



Name 



Operation Operand 



I LABEL | 



label-information 
SA! 



j =dsname 1 
iME I =SYSxxx J 



Specification 



Reason for Specifying 



How to Specify 



// 



Required 



As shown 



LABEL 



Required 



As shown 



label-information 



SAME 



To provide label information 
for a data set; required for 
direct access data sets unless 
SAME is specified 



Label specifications (see next 
chart) 



To indicate that the label in- 
formation for a data set dupli- 
cates the information already 
qiven for another data set 



As shown 



~h 



=dsname 



To identify the ether data set 
by name 



An equal siqn followed by the name 
of the other data set 



=SYSxxx 



To identify the other data set 
throuqh the symbolic unit name 
currently associated with it 



An equal siqn followed by the sym- 
bolic unit name associated with the 
other data set 
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Label Specifications : 

[ block- length ][ , expiration-date ] 



, WRCHK 
, NOWRCHK 



[,NL] 



Specification 



Reason for Specifying 



How to Specify 



block-length 



Reguired for direct access data 
sets; indicates the number of 
bytes in a FORTRAN record 



Either a decimal number from 1 
through 360 or a number egual to the 
number specified for record length 
in a DEFINE FILE statement within 
the FORTRAN program 



expiration- date 



To specify the date on which 
the data set may be deleted; 
otherwise, the current date is 
used as the expiration date 



The date in the form yyddd, where yy 
(two digits from 00 through 99) rep- 
resents the year and ddd (three 
digits from 001 through 366) repre- 
sents the day of the year 



WRCHK 



To indicate that write checking 
is to be performed on a direct 
access data set* can be over- 
ridden by a specification of 
NOWRCHK in an ALLOC or ACCESS 
statement for the data set 



As shown 



NOWRCHK 



To indicate that write checking 
is not to be performed on a di- 
rect access data set; can be 
overridden by a specification 
of WRCHK in an ALLOC or ACCESS 
statement for the data set 



As shown 



+ 



NL 



To indicate that a tape is not 
labeled 



As shown 
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LISTIO Statement 
Id Name Operation Operand 



I I 



| LISTIO | 
I I 



TPROG "I 
LSYSxxxJ 



Specification 



// 



LISTIO 



Reason for Specifying 



PROG 



SYSxxx 



h 



| Required 
-4- 



| Required 
4- 



How to Specify 



|As shown 
4- 



|As shown 
4 



| To limit the list cf current |As shown 

| unit assiqnments to only those | 

lassiqnments made or altered | 

| during the current job | 

| To request that the current as-|The name of the symbolic unit whose | 

Isiqnment of a sinqle symbolic |current assiqnment is to be listed | 

| unit be listed | I 

_i i i 



A 
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RENAME Statemen t 
Id Name Operation 



Operand 



I I 

I L. 



RENAME 



j cld-dsname, new-dsname 
{dsname (cld-member-name, new- 



member-name) 



RENAME 

t 

old-dsname 



Specification | 
h 



Reason for Specifying 



How to Specify 



// 



| Required 
-4- 



j Required 
-4- 



| To indicate the data set whose 

|name is to be chanqed 

I 



new-dsname 



dsname 



| To specify the new name for a 
|data set whose name is to be 
| chanqed 
4 



| To indicate the name of a 
Idirectcried data set containinq 
|a member whose name is to be 
| chanqed 
4- 



As shown 



As shown 



The name of the data set as it 
appears in the volume table of 
contents 



From one throuqh eiqht alphameric 
characters, the first of which must 
be a letter 



The name of the data set as it 
appears in the volume table of 
contents 



old-member-name |To indicate the member name 
| that is to be chanqed 
4- 



The name of the member as it appears 
in the directory 



new-memter-name | To indicate the new name of the 
Imember whose name is to be 
| chanqed 

I L 



From one throuqh eiqht alphameric 
characters, the first of which must 
be a letter 



Control Statements 57 



RESET Statement 
Id Name Operation Operand 



i r 

I//I 



-i r 

| RESET |[SYSxxx] 
J i 



| Specification 

I 

// 



Reason for Specifying 



RESET 



| Required 

., — : 



How to Specify 



| As shown 
H 



| Required 
-f 



| As shown 
_) 



SYSxxx 



To indie 
assiqnme 
the abse 
tion cau 
standard 
restored 



ate the unit whose |The symbolic unit name of any unit 

nt is to be restored; (havinq a standard assiqnment 

nee of this specifica- | 

ses all units with | 

assiqnments to be | 



UNCAT LG Stateme nt 
Id Name Operation Operand 



i r 



T 1 

| UNCATLG |dsname 
.j i 



Specification 



Reason for Specifyinq 



// 



| Required 
4- 



UNCATLG 



| Required 
4 



How to Specify 



| As shown 
-I 



| As shown 
-H 



dsname 



., 

IRequired; indicates the name of|The name of the data set as it was | 
| the data set to be removed from|entered into the system cataloq j 
|the system cataloq | I 
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LINKAGE EDITOR CONTROL STATEMENTS 

Linkage editor control statements consist 
of only two fields — an operation field 
and an operand field. Both fields are 
reguired . 



The operation field, whicl 



[entities 



the statement by name, may start in any 
column after column 1. The operand field 
follows the operation field, separated from 
it by at least one blank. The operand 
field consists of from one through three 
specifications, separated from each other 
by commas. Specifications must be punched 
in the order shown in the statement 
formats* No blanks are permitted within 
the operand field. 

Linkage editor control statements may 
not be continued; all information must be 
punched in one card. Comments may be 
written in the statements; they must be 
separated from the last character of the 
operand field by at least one blank and 
must not extend beyond column 71. 



linkage editor control statements allow the 
use of the characters comma and asterisk, 
but only where specifically indicated in 
the statement formats. 



All linkage editor control statements 
must be punched in the Extended 
Binary-Coded-Decimal Interchange Code 
(EBCDIC) . 



Statement Formats 



The linkage editor control statements are 
presented here in alphabetic order. For 
each statement, the statement format 
appears first, showing the contents of the 
operation and operand fields. Immediately 
following each statement format is a 
specifications table, which indicates for 
each statement format specification the 
reason for specifying it and how to specify 
it. 



In addition to the 39 alphameric characters 
permitted in job control statements, 



The notation used in these statement 
formats is the same as that used for the 
job control statements. 
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INCLUDE Statement 
Operation Operand 



| INCLUDE |m 



odule, ( I ) 



Specification | 
h 



Reason for Specifying 



INCLUDE 



module 



I Required 
4 



IRequired to identify the module 
| that is to be included in the 
| phase 
I 



H 

i To indicate that the module to 
| be processed can be found on 
I SYS000 



How to Specify 



As shown 



The name of the module as it appears 
in a MODULE statement or as derived 
from the name field of an EXEC 
FORTRAN statement (see "Compila- 
tion") 

As SnOwn 



| To indicate that the module to 
| be processed can be found in 
jthe module library 



As shown 



MODULE Statement 



Operation Operand 



I MODULE | name 
i 1 



Specification | 
h 



Reason for Specifying 



How to Specify 



MODULE 



| Required 
-| 



|As shown 
..J 



name 



IRequired; indicates the name of|From one throuqh eiqht alphameric | 
| the module (characters, the first of which must | 

| | be a letter | 

_i i j 
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PHASE Statement 



Operation Operand 



i 1 

i i I s ] 

I PHASE Iphasename, I * [,NOAUTO] 

I I ) ROOT 

| ! (phase] 

i i 



j. 

PHASE 



Specification 



Reason for Specifying 



How to Specify 



Required 



As shown 



phasename 



t 

S 



Required to name the phase 



From one through eight alphameric 
characters, the first of which must 
be alphabetic 



* 



To specify that the phase have 
its origin at the first avail- 
able location in the problem 
program area 



As shown 



To specify that the phase have 
its origin at the first avail- 
able location after the most 
recently processed phase in 
the job step; equivalent to the 
S specification if this is 
the first PHASE statement in 
the linkage editor input 
deck 



As shown 



ROOT 



For multiphase programs only; 
identifies the phase as a root 
phase (its origin is the first 
available location in the prob- 
lem program area 



As shown 



phase 



To indicate that this phase is 
to have the same origin as 
another phase currently in 
the phase library 



The name of the other phase as spec- 
ified in the linkage editor PHASE 
statement that named it 



NOAUTO 



To suppress the automatic link- 
ing facility for this phase 
only 



As shown 
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SYSTEM OUTPUT 



The components of the Model 4U Programming Source Listing 

System produce aids that may be used to 

document and debug programs. This chapter Unless the NOSOURCE option is specified, a 

describes the listings, maps, card decks, source listing is written on the system 

and error messages produced by these output unit SYSOPT. An example of a source 

components. listing is shown in Figure 4. 

COMPILER OUTPUT Compile r Error/Warn ing Mes sages 

Output from the compiler includes a source The error/warning messages produced by the 

listing, a compiler storage map, and/or a compiler are noted on the source listing, 

module deck, depending on options specified Figure 5 illustrates a source listing with 

by the programmer in the EXEC statement for error messages, 
the FORTRAN compiler. 



FORTRAN IV 


MODEL <♦"♦ PS VERSION X, LEVEL Y 


DATE 69161 


PAGE 0001 


0001 




SUBROUTINE SUBA 






0002 




DIMENSION JNPUTC10),JNOUTC10) 






0003 


30 


FORMAT (1015) 






000"* 


10 


FORMAT C'1',10T5) 






0005 




INDEX = 100 






0006 




READ C1,30XJNPUTCJ),J = 1,10) 






0007 




DO 40 1=1,10 






0008 




JNPUT(I) = JNPUTCO - INDEX 






0009 


<»0 


JNOUTCD = JNPUTCO 






0010 




WRITE C3,10XJNOUTCJ),J = 1,10) 






0011 




RETURN 






0012 




END 







Figure 4. Source Listing 
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FORTRAN 


IV 


MODEL Hi» PS VERSION X, L 


0001 




DIMENSION AGO, 10), BOO, 10) 


0002 




READ CI, 5) E,F,G 


0003 




1 GO TO 2 


oonu 




DO 10 1=1 10 




01) 


NA02I LABEL 02) NA13I SYNTAX 


0005 




DO 20 J=2,10 


0006 




10 A(I,J) = BCI,J) X CCI,J) 


0007 




20 CONTINUE 


0008 




WRITE C3,6) A, 




01) 


NA13I SYNTAX 


0009 




6 FORMAT C5F10.2 




01) 


NA13I SYNTAX 


0010 




END 



DATE 69161 



PAGE 0001 



Figure 5. Source Listing with Errors 



Error information for a source statement 
containing errors appears on the listing 
lines immediately following that statement. 
For each error encountered, a dollar sign 
is printed beneath the active character 
preceding the one that was being inspected 
when the error was detected. The listing 
line that follows the printed statement 
contains only the dollar sign markers. 



The next line of the listing describes 
the marked errors. The errors are numbered 
within the statement (counting from one for 
the first error marked) ; the number is 
followed by a right parenthesis, the error 
number, and the type of error. Four errors 
are described on each line, for as many 
lines as are required to list all the 
marked errors in the source statement. 



For a description of error/warning 
messages, see Appendix D. 



Stor age Map 

If the KAF option is specified, a compiler 
storage map is written on SYSOPT. The map 
is divided into several tables, classified 
as follows: 

• COMMON variables 

• EQUIVALENCE variables 

• Scalar variables 

• Array variables 

• Subprograms called 

• NAMELIST variables 

• Statement labels 

In the case of COMMON variables, a 
separate table is provided for each blank 
or named COMMON defined in the set of 
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FORTRAN 


IV MODEL 


44 


PS 


VERSION X, LEVEL Y 


DATE 69161 






PAGE 0002 




SYMBOL 
CM1 


LOCATION 
000000 




SYMBOL 
CM 2 


COMMON BLOCK / 
LOCATION SYMBOL 
000004 CM3 


/ MAP 
LOCATION 
000008 


SIZE 000010 
SYMBOL 
CM4 


LOCATION 
OOOOOC 


SYMBOL 


LOCATION 


SYMBOL 
AA 


LOCATION 
000000 




SYMBOL 
BB 


COMMON BLOCK / 
LOCATION SYMBOL 
000004 


NCM1 / MAP 
LOCATION 


SIZE 000008 
SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 
CC 


LOCATION 
000000 




SYMBOL 
DD 


COMMON BLOCK / 
LOCATION SYMBOL 
000004 


NCM2 / MAP 
LOCATION 


SIZE 000008 
SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 

B 

I 


LOCATION 

0000E<» 

0000F8 




SYMBOL 

C 

J 


SCALAR MAP 
LOCATION SYMBOL 
0000E8 A 
0000FC L 


LOCATION 

0000EC 

000100 


SYMBOL 
D 

F 


LOCATION 

O0OOF0 

000104 


SYMBOL 

E 

K 


LOCAT I ON 

0000F4 

000108 


SYMBOL 
ARRAY 


LOCAT I ON 
00010C 




SYMBOL 
LIST 


ARRAY MAP 
LOCATION SYMBOL 
000300 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 
FRXPR= 


LOCATION 
000328 




SYMBOL 
IBCOM= 


SUBPROGRAMS CALLED 
LOCATION SYMBOL LOCATION 
00032C SIN 000330 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 
XX 


LOCATION 
000340 




SYMBOL 
YY 


NAME LI ST MAP 
LOCATION SYMBOL 
0003A4 


LOCATION 


SYMBOL 


LOCATION 


SYMBOL 


LOCATION 


LABEL 
1 


LOCAT I ON 
000454 




LABEL 
10 


LABEL MAP 
LOCATION LABEL 
00045A 7 


LOCATION 
000466 


LABEL 
5 


LOCATION 
0004C0 


LABEL 


LOCATION 


TOTAL 


MEMORY REQUIREMENTS 000514 BYTES 












COMPILER 


HIGHEST SEVERITY CODE WAS 
















• Figure 6. Compiler Storage Map 



source statements. In all other cases, a 
separate table is produced for each 
classification, with the appropriate 
heading preceding the data. The variable 
names, statement labels or subprogram names 
are arranged across the page, five to a 
line. The relative location of each 
appears next to the name. If a particular 
classification of names is not used 
anywhere in the source program, the 
corresponding table does not appear in the 
storage map. 

Figure 6 shows a sample compiler storage 
map. The number of bytes reguired for the 
program is supplied so that the programmer 
can ensure that adeguate main storage is 
available for execution. The severity code 
is given to show the programmer whether the 
mistakes which were made are serious enough 
to prohibit execution. 

Mod ule Dec k 

If the DECK option is specified, a module 
deck is produced on the system punch unit, 



SYSPCH . This deck is made up of four types 
of cards — TXT, RLD, ESE, and END. A 
functional description of these cards is 
given in the following paragraphs. 



MODULE DECK CARDS: Every card in the 
module deck contains a 12-2-9 punch in 
column 1 and an identifier in columns 2 
through 4. The identifier consists of the 
characters ESD, RLD, TXT, or END. The 
first four characters of the name of the 
program are placed in columns 73 through 76 
with the seguence number of the card in 
columns 77-80. 



E SP Card: Four types of ESD cards are 
generated as follows: 



ESD, type 

contains the program name of the 
module and indicates the beginning of 
the deck. The program name is the 
module name followed by an ampersand. 
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ESD, type 1 

contains the entry points (where 
control is qiven to begin execution of 
the module) . An entry point is the 
name in a SUBROUTINE, FUNCTION or 
ENTBY statement, or the name MAIN44. 

ESD, type 2 

contains the names cf subprograms 
referred to in the source module by 
CALL statements, EXTERNAL statements, 
explicit function references, and 
implicit function references. 

ESD, type 5 

contains information about each COMMON 
area. 

The number 0, 1, 2, or 5 is placed in 
card column 25. 



RLD Card : An RLD card is gene 
external references indicated 
type 2 cards. To complete ext 
references, the linkage editor 
addresses in the RLD card with 
symbols in the ESD card. When 
references are resolved, the s 
address indicated in the RLD c 
the address assigned to the su 
indicated in the ESD, type 2 c 
cards are also generated for a 
produced for statement numbers 



rated for 
in the ESD, 
ernal 

matches the 

external 

external 
torage at the 
ard contains 
bprogram 
ard. RLD 

branch list 



TXT Card : The TXT card contains the 
constants and variables used by the 
programmer in his source statements, any 
constants and variables generated by the 
compiler, coded information for FORMAT 
statements, and the machine instructions 
generated by the compiler from the set of 
source statements. 



END Card: One END card is generated for 
each set of compiled source statements. 
This card indicates the end of the module 
to the linkage editor, the relative 
location of the main entry pcint, and the 
length (in bytes) of the module. 



MODULE D ECK STR UCTUR E: Figure 7 shows the 
FORTRAN module deck structure. The cards 
are listed in the order in which they 
appear in the module deck. 



LINKAGE EDITOR OUTPUT 

The linkaqe editor produces a phase map 
unless the NOMAP option is specified. The 
linkage editor also produces diagnostic 
messages, which are listed in Appendix D. 



The phase map is written on SYSLST. To the 
linkage editor, each program (main or 
subprogram) is a control section (CSECT) . 

Each control section name is written 
along with the origin and the length of the 
control section. The origin and length of 
a, control section are written in 
hexadecimal numbers. 

For each control section, any entry 
points and their locations are also 
written; any functions called from the 
module library are listed. 

Figure 8 shows a sample phase map. 



| ESD, 
i 


Type 


Program Name of the Module | 


1 

| ESD, 


Type 


1 Entry Points | 


| ESD, 


Type 


5 COMMON Area | 


| ESD, 


Type 


2 External References | 


|TXT 


Cards 


for 


NAMELIST Tables | 


|TXT 

L _ 


Cards 


for 


Literal Constants | 


1 

|TXT 
l 


Cards 


for 


FORMAT Statements j 


r 

|TXT Cards for 

| Constants 
i 


Temporary Storage and | 


i 

|TXT 


Cards 


for 


Module Code | 


|TXT 


Cards 


for 


the BASE Table | 


|TXT 


Cards 


for 


the BRANCH Table | 


|TXT 


Cards 


for 


Subprogram Argument Lists | 


|TXT 


Cards 


for 


Subprogram Addresses | 


|TXT 
i 


Cards 


for 


Address Constants | 


1 

| RLD 


Cards 


for 


the Module | 


|END 
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Figure 7. Object Module Deck Structure 
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67/000 PHASE 

COMMON 
COMMON 
ROOT RTPHAS 



TRANSFER ADDR . LOCORE 



HICORE 


BLOCK NO. 


ESD TYPE 


LABEL 


LOADED 


REL-FACTOR 






COMMON 




004200 


0001A0 






COMMON 


CTRL 


0043A0 


000004 


007947 


293 


CSECT 


MAIN446 


0043A8 


0043A8 






" ENTRY 


MAIN'*'* 


0043A8 








CSECT 


BOAIBCOM 


004B98 


004B98 






ENTRY 


IBCOM= 


004B98 








:: ENTRY 


ADCON= 


004C54 








ENTRY 


FIRSTIM 


005004 








CSECT 


BOAFEXIT 


007170 


007170 






ENTRY 


EXIT 


007176 








CSECT 


BOAOVLY 


007190 


007190 






ENTRY 


LOAD 


0071A8 








" ENTRY 


LINK 


007198 








CSECT 


BOAFIOCS 


007288 


007288 






ENTRY 


RCBORG- 


uu/ eyu 








ENTRY 


BUFORG= 


00788C 








ENTRY 


FIOCS= 


007288 








" ENTRY 


VDIOCS= 


007894 








- ENTRY 


FIOCD= 


0072C2 








CSECT 


BOAUOPT 


0078B8 


0078B8 






ENTRY 


USEROPT 


0078B8 








CSECT 


BOAUNITB 


0078CO 


0078C0 






ENTRY 


UNITAB= 


0078C0 




0086C7 


313 


CSECT 


SUB = 


007948 


007948 






ENTRY 


SUB 


007948 








CSECi 


BOAFRXPI 


008610 


008610 






ENTRY 


FRXPI= 


008618 




0086F7 


318 


CSECT 


CFUNC= 


007948 


007948 






ENTRY 


CFUNC 


007948 








CSECT 


BOAFRXPI 


008640 


008640 






ENTRY 


FRXPI= 


008648 





LINKAGE EDITOR HIGHEST SEVERITY WAS 



Figure 8. Phase Map 



PHASE OUTPUT 



OAxxxI 



At execution time, FORTRAN pha 
diagnostic messages are qenera 
forms -- error code diagnostic 
program interrupt messages, an 
messages. An error code indie 
input/output error or a misuse 
library function. A program i 
message indicates a condition 
beyond the capacity of the pro 
system to correct. An operato 
generated when a STOP or PAUSE 
executed . 



se execution 
ted in three 

messages, 
d operator 
ates an 

of a FORTRAN 
nterrupt 
that is 
gramming 
r message is 

statement is 



Error Code Diagnostic Messages 

When an error condition arises during 
execution of a FORTRAN program, a message 
is written on SYSOPT, as fellows: 



The error code is the number specified by 
the digits xxx. These error codes are 
described in Appendix D. If any error is 
detected, its severity is evaluated. Major 
errors cause cancellation of the "job step 
or job. 



Me s sages for Prog ram Inter rupts 

A program interrupt message containing the 
old Program Status Word (PSW) is produced 
on SYSLST to provide information regarding 
program interrupts. For a description of 
these messages, see "Program Interrupt 
Messages" in Appendix D. 
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Sample Storage Printouts Messages to the Ope rator 

Figure 9 shows a sample printout for each A messaqe is transmitted to the operator 

dump format that can be specified in a call when a STOP or PAUSE statement is executed, 

to DUMP or PDUMP. The printouts are given Operator messaqes are written on SYSLOG, 

in the following order: hexadecimal, the console printer. For a description of 

LOGICAL* 1, L0GTCAL*4, INTEGER*2, INTEGER*^, these messaqes, see "Operator Messages" in 

EEAL*4, EEAI*8, C0MPLEX*8, C0MPLEX*16, and Appendix D. 
literal. 



CALL PDUMP WITH HEXADECIMAL FORMAT SPECIFIED 

00A3E0 485F5E10 00000000 485F5E10 10000000 42100000 

006DC8 42B00000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 

006DF8 C0O0OOOO 00000000 41200000 41566666 000OOO0C 41100000 



CALL PDUMP WITH LOGICAL*l FORMAT SPECIFIED 
uuotit T r 



CALL PDUMP WITH LOGICAL*4 FORMAT SPECIFIED 
006E10 F T 



CALL PDUMP WITH INTEGERS FORMAT SPECIFIED 
006E18 10 

006E1A -100 
006E.1C 10 



ER*4 



006E20 1 

006E48 11 



CALL PDUMP WITH REAL*4 FORMAT SPECIFIED 
006E00 0.20000000E 01 0.53999996E 01 



CALL PDUMP WITH REAL*8 FORMAT SPECIFIED 
006DC8 0.1759999999999999D 03 



CALL PDUMP WITH COMPLEX*8 FORMAT SPECIFIED 

006DD0 C3. 0000000, 4. 0000000) C4. 0000000, 8 , 0000000) 



CALL PDUMP WITH COMPLEXM6 FORMAT SPECIFIED 

006DE0 CO. 9999999999999990, 0.9999999999999990) C-0 . 9999999999999990,-0. 9999999999999990) 



CALL PDUMP WITH LITERAL FORMAT SPECIFIED 
006E5C THIS ARRAY CONTAINS ALPHAMERIC DATA 



Figure 9. Sample Storaqe Printouts 
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PROGRAMMING CONSIDERATIONS 



This section discusses program optimization 
and limitations of the compiler. 



PROGRAM OPTIMIZATION 

Facilities are available in the FORTRAN 
lanquaqe that enable a programmer to 
optimize compilation and execution speed 
and to reduce the size of the phase. 

Initiali za tion 

The programmer should initially set to zero 
all variables that are net initialized by 
arithmetic statements in his program. The 
value of a variable cannot be guaranteed 
until the programmer has given that 
variable a value by a replacement 
statement. For example, in the following 
subprogram: 

SUBROUTINE ALPHA (X,Y,Z) 
A=B+2.0 



The mixed mode arithmetic expression is 
provided as a convenience to the 
programmer. The number of instructions 
generated to perform conversions can be 
reduced, however, if the order of 
evaluation of expressions is kept in mind. 

For example, in the expression: 

A = A + I + J 

where A is real and I and J are integer, 
the evaluation is from left to right. 
Instructions are, therefore, produced to 
convert I to real before it is added to A, 
and additional instructions are included to 
convert J to real before it is added to the 
previous result. If the expression is 
written in either of the following ways: 

A = A + (I + J) 

A = I + J + A 

one of the conversions is eliminated 
because I and J are added together first, 
and the result is converted to real before 
being added to A. 



the result A may contain any value, because 
B was not initialized. If the programmer 
expects B to be zero, he should initialize 
B as shown in the following statements: 

SUBROUTINE ALPHA (X,Y,Z) 

B=0.0 

A=B+2.0 



Whenever possible, for greater 
efficiency the DATA initialization 
statement should be used to define initial 
values. 



IF Statement 

An arithmetic IF statement lists three 
statement numbers. One of the listed 
numbers should immediately follow the IF 
statement to eliminate unnecessary 
branching in the phase. For example, the 
coding represented by the following 
statements: 



30 



IF (A-B) 20,30,30 
A = 0.0 



20 B=0.0 



Arithmetic Statement s 

When the programmer wants to calculate the 
square root, the sguare root library 
subprogram should be used instead of the 
exponential function. FOr example, the 
statement: 

HYPOT = SQRT (A*A+B*B) 

is more accurate than the statement: 

HYP0T= (A*A + B*B) **0. 5 

because the SQRT function is more accurate 
than the exponential function. 



is more efficient than the coding 
represented by the statements: 

IF (A-B) 20,30,30 
10 X=2.+Y 



30 A=0.0 



20 B=0.0 
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DO Loop Consider atio ns 



READ/WRITE Statements 



Values for expressions that remain constant 
within a DO loop should be calculated 
before entry into the loop, instead of 
calculating the expression each time 
throuqh the loop. For example, in the 
followinq statements: 



10 



DO 10 1=1, 1(0 

X(I) =2.4* (G+ ALPHA) +Y (I) 

CONTINUE 



i u ieou <j j. 



ihlc Cm 



a READ/WRITE statement should be used 
instead of a DO loop. For example, 5 
records, each containinq two values, are 
written by the followinq statements: 

10 FORMAT (F20. 5,110) 

DO 15 1=1,5 
15 WRITE (5, 10) A (I) , J (I) 



In the statements: 



the expression 2. 4* (G+ ALPHA) must be 
calculated each time the DC loop is 
executed. For qreater efficiency, the 
followinq statements should be substituted: 



BETA=2.4*(G+ALPHA) 
DO 10 1=1, 100 
X(I) =BETA + Y(I) 
10 CONTINUE 

Because the expression 2. 4* (G+ ALPHA) is 
calculated only once, the execution time is 
decreased. 

Any subscripts that remain constant 
within the ranqe of a DO should not be used 
in the DO loop. For example, in the 
followinq statements: 



10 FORMAT (5(F20. 5,110)) 

WRITE(5,10) (A (I) ,, 7(1) ,1=1,5) 

only one record containinq 10 values is 
written. The use of an implied DO saves 
phase execution time and space on the 
volume. 

Extra subscript calculation within the 
ranqe of an implied DO should be avoided. 
This is the same consideration shown in 
reqard to the DO lpop. For example, if the 
statements: 

2 FORMATC 0« , 10F12. 6) 



READ(1,2) (A (I) ,1 = 4,31,3) 
are substituted for the statements: 



DO 10 1=1,50 



X(I)=Y(I)+Z(J) 



2 FORMATC0" , 10F12. 6) 

READ(1,2) (A (3*1+1) ,1=1,10) 

the intricacy of the subscript calculation 
is reduced and the phase execution time is 
reduced. 



10 CONTINUE 

a subscript calculation for Z(J) is 
performed each time the DO loop is 
executed, even thouqh Z (J) remains constant 
for each execution of the loop. By 
substitutinq the followinq statements: 

B=Z(J) 

DO 10 1=1,50 



X(I) =Y(I) +B 



10 CONTINUE 

only one subscript calculation is made for 
Z(J) and execution time is decreased. 



Boundary Alignment o f Vari ab les in COMMON 
Blocks and EQUIVALENCE Groups 



The Model 44 Proqr 
improper boundary 
the orderinq of va 
or in an EQUIVALEN 
considerable effic 
program execution 
variables is such 
on proper boundari 
of lenqth 16 or a 
of lenqth 8 should 
double-word bounda 
loqical variable o 
located on a fullw 
variable of length 
halfword boundary, 
avoiding improper 
and the resulting 
found in the discu 
and EQUIVALENCE gr 



amming System will adjust 
alignments resulting from 
riables in a COMMON block 
CE group. However, 
iency is lost during 
if the order of the 
that they are not located 
es. A complex variable 
real or complex variable 

be located on a 
ry; a real, integer, or 
f length 4 should be 
ord boundary; an integer 

2 should be located on a 
(Information on 
alignment of variables 
loss in efficiency can be 
ssions of COMMON blocks 
oups in the publication 
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IBM System/360 F ORTRAN IV language. Form 
C2 8-6515.) 



If a variable is located en an improper 
boundary, each machine-instruction 
reference to the variable reguires that: 



The specification exception resulting 
from this reference be processed. 



FUN CTI O N Subprogram s 

The function variables for the principal 
entry and for each alternate entry to a 
FUNCTION subprogram are made equivalent. 
As a result, the value returned for a 
function is the value of the last function 
variable set before the RETURN statement 
causing the return, reqardless of the entry 
point used. For example: 



The boundary adjustment routine be 
invoked to simulate the execution of 
the instruction containing the 
reference in order to circumvent the 
boundary violation. 



The use of the boundary adjustment 
routine is an installation option; that is, 
at the time the system is assembled, an 
installation can indicate whether or net 
the routine is to be invoked. 



An installation can alsc modify the 
system to reguest that a boundary 
adjustment message be printed. The message 
indicates that a boundary adjustment is to 
take place. It is printed once for each 
boundary alignment error, up to a maximum 
of n errors. The value of n is determined 
by the installation. Boundary adjustment 
takes place, however, whether or not the 
boundary adjustment message is printed. 

The format of the message is: 

OA2 10I PROGRAM INTERRUPT (A) OLD PSW 
IS xxxxxxxxxxxxxxxx 

The A in parentheses identifies boundary 
adjustment as the cause cf the message. 

The boundary adjustment routine is 
invoked whenever a boundary viclaticn 
occurs in either a FORTRAN main program or 
subprogram. The routine is also available 
to assembler language subprograms that 
operate in a FORTRAN environment (see 
Appendix C) . 

When, for seme reason, the boundary 
adjustment routine cannot be loaded from 
the phase library, the diagnostic message 
OA219I is printed. The loading of the 
boundary adjustment routine is dependent 
upon the amount of space available in the 
problem program area. The first location 
available to the boundary adjustment 
routine is the one immediately following 
the highest location thus far occupied by 
any phase of the user's program. This is 
not necessarily the highest location 
occupied by the phase in which the boundary 
alignment error occurs. 



FUNCTION SIN(X) 

ENTRY COS (X) 

SIN = X-X**3/6+X**5/120 

COS = SQRT (1.0-SIN**2) 

RETUEN 

END 

always returns the cosine value, since the 
variables SIN and COS occupy the same space 
in storage. In order to produce the 
desired result, the FUNCTION subprogram 
should be coded: 

FUNCTION SINCOS(X) 
ENTRY SIN (X) 

Y = X-PI/2.0 
GO TO 5 
ENTRY COS (X) 

Y = X 

5 ST'NCOS = 1-Y**2/2.0+X**4/24.0 
RETURN 
END 

In this case, the value in SINCOS is the 
sine of the angle X when the SIN entry to 
the function is used, and the cosine of X 
when the COS entry to the function is used. 



References to FUNCTION Subprograms 

The convention for linkage to FUNCTION 
subprograms reguires that all registers 
containing active partial results from an 
expression be saved before branching to the 
FUNCTION subprogram. As a result, more 
efficient codes can be produced by placing 
FUNCTION references so that they are 
evaluated before the rest of the expression 
in which they appear is evaluated. 

For example, in the statement: 

A = B*C + D*E*FN(G) 

the partial results B * C and D * E must 
both be stored in temporary locations 
before a call is made to the FUNCTION 
subprogram FN. If the statement is 
rewritten as follows: 

A = FN(G) *D*E+B*C 

the unnecessary STORE instructions are 
eliminated because no partial results exist 
when FN is called. 
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Use of DUMP and PDUMP 

The storage locations assigned to variables 
in a FORTRAN program are listed in the 
compiler storage map. whenever possible, 
the programmer should refer to the storage 
map before using the DUMP or PDUMP 
subroutines. The statement format is: 



CALL /DUMP I (a 1 ,b l ,f 1 ,...a n ,b n ,f n ) 
\ PDUMP ( 



where: 

a and b are variables that indicate the 
limits of storage to be dumped. f 
indicates the dump format; it must be one 
of the integers shown below. 

specifies hexadecimal format 

1 specifies L0GICAL*1 

2 specifies LOGICAL*^ 

3 specifies INTEGER*2 

4 specifies INTEGER*** 

5 specifies REAL*4 

6 specifies REAL*8 

7 specifies C0MPLSX*8 

8 specifies COMPLEX* 16 

9 specifies literal 

The following conventions should be 
observed when using the DUMP or PDUMP 
subroutines to insure that the appropriate 
areas of storage are dumped. 

In the following examples, A is a 
variable in COMMON, B is a real number, and 
the array TABLE is dimensioned as: 



DIMENSION TABLE (20) 

If an array and a variable are to be 
dumped at the same time, a separate set of 
arguments should be used for the array and 
for the variable. The specification of 
limits for the array should be from the 
first element in the array to the last 
element. For example, the following 
statement could be used to dump TAELE and B 
in hexadecimal format, and to terminate 
execution after the dump is taken: 



CALL DUMP (TABLE (1) ,TABLE(20) ,0,B,B,0) 

If an area in COMMON is to be dumped at 
the same time as an area of storage not in 
COMMON, the arguments for the area in 
COMMON should be given separately. For 
example, the following statement could be 
used to dump the variables A and B in real 
format without terminating execution: 



CALL PDUMP (A,A,5,B,B,5) 



If variables not in COMMON are to be 
dumped, the programs should list each 
variable separately in the argument list, 
For example, if R, P, Q are defined 
implicitly in the program, the statement 



:al] 



should be used to dump the three variables 
in storage. If, however, the statement: 



CALL PDUMP(R,Q,5) 

is used, all main storage between R and C 
is dumped. 

If an array and a variable are passed as 
arguments to a subroutine, the arguments in 
the call to DUMP or PDUMP in the subroutine 
should specify the parameters used in the 
definition of the subroutine. For example, 
if the subroutine SUBI is defined as: 

SUBROUTINE SUBI(X,Y) 
DIMENSION X (10) 

and the call to SUBI within the source 
program is: 



DIMENSION A(10) 



CALL SUBI(A,B) 



then the following statement in the 
subroutine should be used to dump the 
variables in hexadecimal format without 
terminating execution: 



CALL PDUMP (X (1) ,X (10) , 0,Y,Y, 0) 
If the statement 

CALL PDUMP (X(1) ,Y,0) 



is used, all storage between A(1) and Y is 
dumped, as the result of the method of 
transmitting arguments. 

Block Length 

A block of data written by the FORTRAN IV 
compiler is never less than 360 bytes long. 
Even though the LABEL jot control statement 
permits a block length specification 
smaller than 360, the size of the buffer 
from which records are written is always at 
least 360 bytes. While writing his source 
program, the FORTRAN programmer should try 
to format his records so that optimum use 
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is made of the 360-byte buffer, thereby 
conserving space on external storage media. 



COMPILER RESTRICTION" 

Table 3 is a list of the limitations 
imposed on the source program by the 
FORTRAN compiler. 



IBCCK Buffer: The FORTRAN L 
Input/Output Support routine 
buffer which is equal in siz 
maximum record length field 
FILE statement or 360 bytes, 
greater. If no DEFINE FILE 
appears in the program, then 
buffer is assigned. In addi 
are required for the RCB and 
required for alignment. The 
RCB are used for execution-t 
implementation of FORTRAN In 
source statements. To allow 
the programmer must reduce t 
available for the execution 

1 



ibr ary 

(IBCCK) uses a 
e to the 
in the DEFINE 

whichever is 
statement 

a 36 0-byte 
tion, 40 bytes 

8 bytes are 

buffer and the 
ime 
put/Output 

for this area, 
he space 
of his program 
us 48 bytes. 



Table 3. Compiler Restrictions 



I— 



ITEM 



Unique variable names 



Unique array names 



Statement numbers, including one 
additional statement number 
for each DO, Logical IF, and 
implied DO in an input/output 
list 



Names in Explicit Specification 
statements 



Unique real constants 



Unique integer constants 



Unique double-precision real 
constants 



Unique complex constants 



Unique double-precision complex 
constants 



References to unique subprogram 
entry point names (explicit 
and implicit) 



Statement function definitions 



Nested statement function 
definitions 



Dummy arguments for a subprogram 



Total arguments to all 

subprograms and statement 
functions 

Nested DO statements 



Nested FUNCTION subprogram 
references 



K AX IH UK 
NUMBER 



8000 



H 



30C0I 



--) 



Variables and arrays in COMMON | 8000 

Names in EQUIVALENCE statements I 5000 
plus number of EQUIVALENCE 
lists 



H 



160C0 



8000 



16000 



160 CO I 



8000 



8000 



H 



40C0' 



H 



80C0 



8000 

^ 

15 



H 



8000 i 



16000 



H 



3000 



20 



For FORMAT codes: Group count I 255 
and field length 
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APPENDIX A: 



EXAMPLES OF JOB DECKS 



T 
job 
jobs 
Proq 
is a 
assi 
port 
(tha 
that 
even 
sepa 



his 
deck 
, th 
ramra 
ssum 
qned 
ions 
t is 
the 
t SY 
rate 



appendix illustrates a number of 
s, representina several types of 
at could be used with the Model 44 
inq System. For each example, it 
ed that SYSTPT and SYSRDR are 



L'le .=> a in c 



C V x^ c 



of the job deck read by SYSIPT 
, all input data) are indicated so 
y can easily be removed in the 
SIPT and SYSRDR are assigned to 

devices . 



Compile only (one compilation) : 

Fiaure 10 shows a job that consists of one 
job step -- a FORTRAN compilation. A job 



name and accounting information are 
provided in the JOB statement. The comma 
in the operand field is required by the 
absence of the DUMP or NODUMP 
specifications (indicating that NODUMP is 



The EXEC statement indicates that the 
job step is to be unnamed, that a module 
deck and a compiler map are to be produced, 
and that a module is not to be written on 
SYS000. By default, a source listing is 
produced and it is assumed that source 
statements are to be punched in EBCDIC. 



//70B0NE JOB ,PGNO3410 

// EXEC FORTRAN(DECK,NOLINK,MAP) 



FORTRAN source statements 



A 



> 



SYSIPT 



/* 



(end of data) 
(end of job) 



J 



Figure 10. Sample of Compile Only (One Compilation) 



Appendix A: Examples of Job Decks 73 



Com pile o nly (thr ee com pi lations) : 

Figure 11 shows a job that consists of 
three job steps -- three FORTRAN 
compilations involving one main program and 
two subproqrams. The job steps are named 
MATNPRO, SUBA, and SUBB. In each job step, 
a module deck, a compiler map, and a source 



listinq are produced and no module is 
written on SYS000. The EXEC statement for 
job step SUBA indicates that the source 
statements followinq it are in BCD; for the 
other two job steps, EBCDIC is assumed. 
The EXEC statements for MAINPRO and SUBB 
illustrate that compiler options may Ipe 
specified in any order. 



//JOBTWO JOB 
//MATNPRO EXEC 



,PGN0341 1 

FORTRAN (DECK, NOT INK, MAP) 



^\ 



FORTRAN source statements (main program) 



y 



//SUBA 



(ena or aata) 



SYSTPT 



EXEC FORTRAN (DEC*,NOL INK, MAP, BCD). 



~\ 



FORTRAN source statements (subprogram) 



VSYS T PT 



/* 

//SUBB 



J 

EXEC FORTRAN(DECK,MAP,NOLINK) ^ 



(end of data). 



/* 



FORTRAN source statements (subprogram) 



(end of data) 
(end of job) 



> SYSIPT 



J 



Fiqure 11. Sample of Compile Only (Three Compilations) 
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Ba tch Comp ilat ion (th ree compilatio ns) : 

Figure 12 shows how the main program and 
the two subprograms shown in Figure 11 
couiu us CGuipii-cci as a Daren proviusc tnat. 
the options given in the one EXEC FORTRAN 



statement applied to all three 
compilations. For each compilation, a 
module deck, a compiler map, and a source 
listing are produced; no module is written 
on c ¥ b" . 



//JOBTWO JOB ,PGN03411 

//MAINPR EXEC FORTRAN (DECK ,N0L INK , KAP) 



FORTRAN source statements (main program) 



SYSIPT 



END 



FORTRAN source statements (subprogram) 



SYSIPT 



END 



FORTRAN source statements (subprogram) 



SYSIPT 



END 



/* 



(end of data) 
(end of job) 



Figure 12. Sample of Batch Compilation 
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E dit o nly : 

Figure 13 shows a job that consists of one 
job step -- the editing of three module 
decks. Tha EXEC statement indicates that 
the job step is unnamed and that the phase 
output produced by the linkage editor is to 
be retained in the phase library for use in 
subsequent jobs. By default, a phase map 
is produced on SYSLST. 

The modules to be edited are named KAIN, 
SUBONE, and SUBTWO and will be copied in 
that order onto SYS000 by the linkage 
editor. A single phase, named ALPHA, is to 
be produced; its origin is to be the first 
available location in the problem program 
area. The INCLUDE statements indicate that 
phase ALPHA is to be composed of modules 
MAIN, SUBONE, and SUBTWO, in that order, 



and that each module will be found on 
SYS000. (Note that the PHASE and INCLUDE 
statements could be omitted from the job 
deck; the only difference in the results 
obtained is that phase ALPHA would instead 
be named EAIN, the name of the first module 
to be included in the phase.) 

The three module decks to be edited here 
could well be the three decks produced in 
the previous example of three compilations. 
Although the job steps in that example are 
named KAINPRO, SUBA, and SUBB, these names 
are not carried over with the module decks 
into another job. In order to be edited, 
the modules must be named again in KODULE 
statements. Of course, the names used for 
the compilation job steps could fce repeated 
in the MODULE statements or, as is the case 
here, entirely new names could be used. 



//JOBTHREE JOB ,PGNC3412 
// EXEC LNKEDT (KEEP)_ 

MODULE MAIN 



/* 



^ 



Module deck (main program) 



MODULE SUBONE 



Module deck (subprogram) 



MODULE SUBTWO 



Module deck (subprogram) 



PHASE ALPHA,S 

INCLUDE MAIN,L 
INCLUDE SUBONE, L 
INCLUDE SUBTWO, L 

(en5 of data)_ 
(end of job) 



> 



SYSIPT 



J 



Figure 13. Sample of Edit Only 
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cojs£ii6_jtii^L^.iri : 



Figure 
job st 

module 
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output 
source 
module 
on SYS 
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source 
EBCDIC 



14 shows a job that consists of two 
eps -- a FORTRAN compilation and the 



. _ ,. T J. . 



deck produced in a previous job. 
mpilation job step is named MAINPRO; 
from the compiler is to include a 
listing, a compiler map, and a 
on SYS000. The name of the module 
000 will be the job step name, 
0. No module deck is produced and 
statements are assumed to be in 
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output fr 
in the ph 
produced . 



.^r.; ~ A 
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on the 
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s unn 
is to 
hase 
k, wh 
link 
ase, 
lude 
at or 
SYS00 
uld b 
ectin 
se BE 



amed ; 

be re 
map is 
ich wi 

a n £s a A 
a. '^ w w i_i 

BETA, 
the mo 
der ; b 
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//JOBFOUR JOB 
//MAINPRO EXEC 



,PGN03413 
FORTRAN (MAP) 



/* 
// 



FORTRAN source statements 



(end of data) 
EXEC LNKEDT(KEEP) _ 
MODULE SUBPROG 



Module deck 



PHASE BETA,S 
INCLUDE MAINPRO, L 
INCLUDE SUBPROG, L 



/& 



(end cf job) 



"A 



>- SYSIPT 



V SYSIPT 



J 



Fiqure 14. Sample of Compile and Edit 
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Execute only : 

Figure 15 shows a job that consists of one 
job step — the execution of the phase, 
BETA, produced in the previously 
illustrated compile-and-edit job. The JOB 
statement now indicates that a dump is to 
be produced if the job terminates 
abnormally. 

Before the phase is executed, two data 
sets required by it are associated with 
symbolic unit names. The ACCESS statement 
associates the data set named INPUT with 
symbolic unit SYS004 (which corresponds to 
data set reference number 4) . The device 
to be used for this data set is an IBM 2400 
Magnetic Tape Unit with a 9-track 



read/write head and a recording density of 
800 bytes per inch; the data set itself is 
located on the tape whose volid is T645. 



The ALLOC statement associates the data 
set named MASTER with symbolic unit SYS002 
(which corresponds to data set reference 
number 2) . In addition, 20 blocks of space 
are allocated for the data set on a fresh 
disk volume, which must be an IBM 1316 Disk 
Pack mounted on an IBM 2311 Disk Storage 
Drive. Finally, the data set MASTER is to 
be entered into the system catalog. The 
LABEL statement, which is reguired after 
the ALLOC statement shown, indicates a 
FORTRAN record length of 360 bytes and an 
expiration date of January 1, 1968. 



//JOBFIVE JOB 



DUMP,PGN03414 



//SYS004 


ACCESS 


INPUT, 2400='T645« 


//SYS002 


ALLOC 


MASTER, 1316=FRESH,20,CATLG 


// 


LABEL 


360,68001 


// 


EXEC 


BETA 


/& 




(end of job) 



Figure 15. Sample of Execute Only 
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Edit and exec ute : 

Fiqure 16 shows a job that consists of two 
job steps — the editing of two module 



j - ~ i, ~ 






phase. The editing job step is unnamed and 
no phase map is to be produced. Also, the 
phase output can be discarded at the end of 
the next job step (in this case, 
immediately after the phase is executed) . 

The modules to be edited are named 
PAYMATN and PAYSUB and will be copied in 
that order onto SYS00O by the linkage 
editor. The absence of PHASE and INCLUDE 



PHASE PAYMAIN,* 
INCLUDE PAYMAIN, L 
INCLUDE PAYSUB, L 



The result is that a single phase named 
PAYMAIN is produced and the two modules on 
SYS000 (namely, PAYMAIN and PAYSUB) are 
included in the phase in that order. The 
origin of the phase is the first available 
location in the problem program area. 

The presence of input data after the 
phase execution EXEC statement indicates 
that the data set reference number 5 






.nk« 






generate the following statements: 



'cor r es "or din^ to SYSIPT^ 
source program. 



:itec 



//JOBSIX 
// 



JOB DUMP,PGN03415 
EXEC LNKEDT(NOMAP)_ 
MODULE PAYMAIN 



Module deck 



MODULE PAYSUB 



>v 



> 



Module deck 



/* 

/ y 

// 



(end of data)_ 



SYSIPT 



J 



/* 



Input data to FORTRAN program 



(end of data) 
(end cf job) 



> 



SYSIPT 



J 



Figure 16. Sample of Edit and Execute 
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Compile , edit, and exec ute : 

Figure 17 shows a job that consists of four 
job steps — two FORTRAN compilations 
involvina a subprogram and a main program, 
the editing of the two resulting modules, 
and the execution o^ the resulting phase. 
The compilation job steps are named SUBPROG 
and MAIN. In each job step, a source 
listing, a compiler map, and a module en 
SYS000 are to be produced, a module deck is 
not to be produced, and the source 
statements are punched in EBCDIC. (Note 
that in the EXEC statement for job step 
SUBPROG, all compiler options are 
specified, while in the EXEC statement for 
job step MAIN, the default options are 
omitted. ) 

The editing job step is unnamed; phase 
output is to be retained; a_ phase map is to 
be produced. A single phase, named GAMMA, 
is to be produced; its origin is to be the 



first available location in the problem 
program area. The phase is to include two 
modules, MAIN and SUBPROG, in that order; 
the source of each module is SYS000. (Note 
that the omission of the PHASE and INCLUDE 
statements from this job deck would cause a 
change not only in the phase name, but also 
in the order in which the modules are 
included in the phase.) 



Before the ph 
set required by 
symbolic unit na 
MASTER (cataloge 
example) , which 
symbolic unit SY 
information is r 
statement becaus 
data set. The p 
the phase execut 
indicates that d 
(corresponding t 
source program. 



ase is executed, one data 
it is associated with a 
me. This is the data set 
d in the execute-only 
is again associated with 
S002. No further 
equired in the ACCESS 
e MASTER is a cataloged 
resence of input data after 
ion EXEC statement 
ata set reference number 5 
o SYSIPT) is cited in the 



//JOBSEVEN JOB 
//SUBPROG EXEC 



DUMP,PGN03U16 

FORTRAN (NODECK, SOURCE, LINK, MAP, EBCDIC) 



FORTRAN source statements (subprogram) 



/* (end of data) 

//MAIN EXEC FORTRAN (MAP) 



> 



SYSIPT 



FORTRAN 



source statements (main program) v SYSI 



PT 



/* 
// 



/* 



(end of data) 
EXEC LNKEDT(KEEP)_ 
PHASE GAMMA, S 
INCLUDE MAIN,L 
INCLUDE SUBPROG, L 

(end of data) 



SYSIPT 



//SYS002 ACCESS MASTER 
// EXEC 



Input data to FORTRAN program 



/* (end of data) 

/& (end of job) 



^ 



> 



SYSIPT 



J 



Figure 17. Sample of Compile, Edit, and Execute 
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Form C28-6813-2, page modified June 10, 1969, by TNL N33-8602 



AEPENDIX B: EBCDIC AND BCDIC CARD CODES 



Character 


EBCDIC 


BCDIC 




r 


(blank) 


T - 


t 


■ " T 


| + 




I 12-8-6 


I 12 




| - 




11 






I / 




0-1 






I — 


(period) 


8-6 
12-3-8 


3-8 




I ) 




11-5-8 


12-4-8 




i * 




11-4-8 






1 / 

1 ( 


(comma) 


0-3-8 
12-5-8 


0-4-8 




1 i 


(apostrophe) 


5-8 


4-8 




1 5 




12 






1 o 











| 1 




1 






I 2 




2 






I 3 




3 






I ^ 




4 






| 5 




5 






I 6 




6 






| 7 




7 






I 8 




8 






I 9 




9 






I A 




12-1 






I 3 




12-2 






I c 




12-3 






I 




12-4 






I E 




12-5 






I F 




12-6 






I G 




12-7 






I H 




12-8 






| I 




12-9 






I J 




11-1 






I K 




11-2 






I L 




11-3 






i "' 




11 /i 
i i — •» 






I N 




11-5 






I o 




11-6 






I P 




11-7 






I Q 




11-8 






I R 




11-9 






I S 




0-2 






I T 




0-3 






I u 




0-4 






I v 




0-5 | 






I w 




0-6 






I x 




0-7 | 






I Y 




0-8 






I z 




0-9 






I $ 

L , ... .. 




11-3-8 




J 



This appendix provides a list of the 49 
characters valid in a FORTRAN source 
program (except in literal data where any 
valid card code is acceptable). The EBCDIC 
punch combination for each character is 
shown. A BCDIC punch combination is shown 
only when it differs from the EBCDIC punch 
combination. Only five characters 



( ) 



have different punch combinations; in all 
other cases, the EBCDIC and ECDIC 
combinations are the same. 



Note 



If the source program is punched entirely 
in EBCDIC (that is, the EBCDIC option is in 
effect) , statement numbers passed as 
arguments must be coded as Sn (where n 
represents the statement numter) . 



If BCD characters appear in the source 
program (that is, the BCD option is in 
effect) , the character $ must not be used 
as an alphabetic character in the source 
program, and statement numbers passed as 
arguments must be coded as $n rather than 
Sn. 
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APPENDIXC: ASSEMBLER LANGUAGE SUBPROGRAMS 



A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN 
program. This section describes the 
linkage conventions that must be used by 
the assembler language subprogram to 
communicate with the FORTRAN program. 



SU3R0UTINE REFERENCES 

The FORTRAN programmer can refer to a 
subprogram in two ways: by a CALL 
statement or by a function reference within 
an arithmetic expression. For each 
subprogram reference, the compiler 
generates : 

1. An argument list; the addresses of the 
arguments are placed in this list to 
make the arguments accessible to the 
subprogram. 

2. A save area in which the subprogram 
can save information related to the 
calling program. 

A calling seguence to pass control to 
the subprogram. 

Arg ument List 

The argument list contains addresses of 
variables, arrays, and subprogram names 



used as arguments. Each entry in the 
argument list is four bytes and is aligned 
on a fullword boundary. The last three 
bytes of each entry contain the 24-bit 
address of an argument. The first byte of 
each entry contains zeros, unless it is the 
last entry in the argument list. For the 
last entry, the first (leftmost) bit in the 
entry is set to 1 . 

The address of the argument list is 
placed in general register 1 by the calling 
program. 

Save Ar ea 

The calling program contains a save area in 
which the subprogram places information, 
such as the entry point for the called 
subprogram, an address to which the 
subprogram returns, general register 
contents, and addresses of save areas used 
by programs other than the subprogram. The 
amount of storage reserved by the calling 
program is 18 words. Figure 18 shows the 
layout of the save area and the contents of 
each word. The address of the save area is 
placed in general register 13. 

FORTRAN programs save floating-point 
registers before calling a subprogram. The 
subprogram does not have to save and re- 
store them. 



AREA > r ■ 

(word 1) | This word is part of the standard linkage convention used ty the programming 

Isystem. An assembler language subprogram can use the word for any purpose. 
AR EA +4 > | 



(word 2) | If the program that calls the assembler language subprogram is itself a 

Isubprogram, this word contains the address of the save area of the calling 
| program. Otherwise, this word is not used. 

A R E A + 8 > J- 

(word 3) |The address of the save area of the called subprogram. 

AREA + 12 >h 



(word 4) | The contents of register 14; that is, the return address. When a subprogram 

Ireturns control, the first byte of this word is set to ones. 
A R E A + 1 6 > | 



(word 5) | The contents of register 15; that is, the entry address. 
AREA+20 >|~ 



(word 6) |The contents of register 0. 
AREA+24 >h 



(word 7) | The contents of register 1 

j. 



I 
AREA + 68 >|- 



(word 18) | The contents of register 12. 

i 



Figure 18. Save Area 
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Calling Sequenc e 

A callinq sequence is generate 
control to the subprogram. Th 
the save area in the callinq p 
placed in qeneral reqister 13. 
of the arqument list is placed 
register 1, and the entry addr 
in general register 15. A bra 
to the address in general regi 
the return address is saved in 
register 14. Table 4 illustra 
of the linkage registers. 



d to transfer 
e address of 
roqrara is 
The address 

in general 
ess is placed 
nch is made 
ster 15 and 

general 
tes the use 



CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 

Two types of assembler lanquaqe subproqrams 
are possible: the first type (lowest 
level) assembler subproqram does not call 
another subproqram; the second type (hiqher 
level) subproqram does call another 
subprogram. 

Coding a Lowest Level Assembler Lanquaqe 
Subproqram 

For the lowest level assembler lanquaqe 
subproqram, the linkaqe instructions must 
include: 

1. An assembler instruction that names an 
entry point for the subproqram. 

2. Instructions to save any qeneral 
registers used by the subprogram in 
the save area reserved by the calling 
program. (The contents of linkage 
registers and 1 need not be saved) . 



3. Instructions to restore the "saved" 
registers before returning control to 
the calling program. 

h . An instruction tnat ssts t.o ones tns 
first byte in the fourth word of the 
save area, indicatinq that control is 
returned to the callinq proqram. 

5. An instruction that returns control to 
the callinq proqram. 

Fiqure 19 shows the linkaqe conventions 
for an assembler lanquaqe subproqram that 
does not call another subproqram. In 
addition to these conventions, the 
assembler program must provide a method for 
transferring arquments from the callinq 
proqram and returninq the arquments to the 
callinq proqram. 



Sharing Data in COM MON 

Both named and blank COMMON in a FORTRAN IV 
program can be referred to by an assembly 
languaqe subproqram. To refer to named 
COMMON, the A-type address constant 

name DC A (name of COMMON) 

is used. The parameter (name of COMMON) 
must te defined in an EXTRN statement. To 
refer to blank COMMON, it must be defined 
in the assembly lanquaqe subproqram (by the 
COM instruction) , and referenced by an 
A-type address constant 

name DC A (name of first DC or DS 
in COM control section) . 



Table 4. Linkaqe Reqisters 
i 1 1 



Reqister 
Number 



13 



14 



15 



Reqister Name 



Function 
H 



Result 
Reqister 



Arqument List 
Reqister 



Used for function subproqrams only. The result is returned in 
qeneral or f loatinq-point reqister 0. (For subroutine subpro- 
qrams, the result is returned by the subproqram in a variable 
passed to the subproqram by the proqrammer's CALL statement.) 

Address of the argument list passed to the called subprogram. 



Save Area 
Register 



Return 
Register 



+- 



Entry Point 
Register 



Address of the area reserved by the calling program in which 
the contents of certain registers are stored by the called 
program. 



+ 

Address of the location in the calling program to which control 
is returned after execution of the called proqram. 



Address of the entry point in the subproqram. 
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Higher Level Assembly Language S u bprogram 

A higher level assembler subprogram must 
include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 
subprogram, it must simulate a FORTRAN 
subprogram reference statement and include: 

1. A save area and additional 
instructions to insert entries into 
its save area. 

2. A calling sequence and a parameter 
list for the subprogram that the 
higher level subprogram calls. 



An assembler instruction that 
indicates an external reference to the 
subprogram called by the higher level 
subprogram. 



Additional instructions in the return 
routine to retrieve entries in the 
save area. 



Figure 20 shows the linkage conventions 
for an assembler subprogram that calls 
another assembler subprogram. 



|Name 

| H 

|deckname 
Iname 



Oper. 



| Operand 
H 



Comments 



START 

ENTRY 

USING 

BC 

DC 

DC 

ST 
ST 
ST 



ST 
user 



L 
MVI 

BCR 





name 

*, 15 

15,*+12 

X'm+1' 

CLm' name' 

14,12(13) 
15,16(13) 
2,28 (13) 



NAME THE ENTRY POINT FOR THIS SUBPROGRAM 



m MUST BE EVEN TO INSURE THAT THE PROGRAM 

STARTS ON A HALF-WORD BOUNDARY. THE NAME MAY BE 

PADDED WITH BLANKS. 

THE CONTENTS OF REGISTERS 14, 15, AND 2 THROUGH R ARE 

STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY 

NUMBER FROM 2 THROUGH 12 AND D IS THE APPROPRIATE 

DISPLACEMENT 



R,D(13) 

written source statements 



2,28 (13) 



THE CONTENTS OF REGISTERS 2 THROUGH R ARE RESTORED. 



R,D(13) 

12(13),X«FF« INDICATE CONTROL RETURNED TO CALLING PROGRAM 

15,14 RETURN TO CALLING PROGRAM 



Figure 19. Lowest Level Assembler Subprogram 
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deckname 


START 







ENTRY 


namej. 




EXTRN 


name 2 




USING 


*, 15 


name! 


BC 


15, *+ 12 




DC 


X'm+1' 




DC 


CLiR'name^.' 




ST 


14,12(13) 




ST 


15, 16(13) 




ST 


0,20 (13) 



ENTRY NAME FOR THIS SUBPROGRAM 
ENTRY NAME THE CALLED SUBPROGRAM 



SAVE ROUTINE 





ST 


R,D (13) 




LR 


r 2 ,13 


* 






* 








LA 


13, AREA 


* 








ST 


13,8 (0,r 2 ) 


* 








ST 


r 2 ,4(0,13) 


* 










1 ^ nrn h . 


AREA 


DS 


18F 



LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE 
CALLING PROGRAM, INTO ANY GENERAL REGISTER, R 2 , EXCEPT 
0, 13 AND 15 (BASE REGISTER) 

LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO 
REGISTER 13. 

STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE 
CALLING PROGRAM'S SAVE AREA 

STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE 
AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- 
GRAM'S SAVE AREA 

RESERVES 18 WORDS FOR THE SAVE AREA 



* user-written proqram statements 
prob ± 



* CALLING SEQUENCE 



LR 


12,15 


LA 


1, ARGLIST 


L 


15,ADCCN 


BALR 


14, 15 


LR 


15,12 



SAVE BASE REGISTER FOR THIS PROGRAM 
LOAD ADDRESS OF ARGUMENT LIST 



RESTORE BASE REGISTER FOR THIS PROGRAM 



* more user-written proqram statements 



RETURN ROUTINE 

L 13,AREA+4 

L 2,28(13) 



LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO 
REGISTER 13 



L R,D(13) 

L 14,12(13) 

MVI 12(13) ,X'FF' 

BCR 15,14 

* END OF RETURN ROUTINE 
ADCON DC A(name 2 ) 

* ARGUMENT LIST 
ARGLIST DC AL4 (arg^.) 



DC 
DC 



X«80' 
AL3(arq n ) 



LOADS THE RETURN ADDRESS INTO REGISTER 14, 
RETURN TO CALLING PROGRAM 

ADDRESS OF FIRST ARGUMENT 



INDICATE LAST ARGUMENT IN ARGUMENT LIST 
ADDRESS OF LAST ARGUMENT 



Figure 20. Higher Level Assembler Subprogram 
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In-Line Argument Lis t 

The assembler programmer can establish an 
in-line arqument list instead of an 
out-of-line list. In this case, he may 
substitute the calling-sequence and 
argument list shown in Figure 21 for that 
shown in Figure 20. 



L 
L 
ST 


q,o (i) 

r,0(q) 

r,VAR 


L 

ST 


r,4(q) 

r,VAR+4 



where g and r are any general registers. 



| Name 


Oper. 


Operand 


I 
i 


IADC0N 


DC 


A (name 2 ) 


i 




LR 


12,15 






LA 


14, RETURN 






L 


15, ADCCN 






CNOP 


2,4 






BALR 


1,15 






DC 


AL4(argi) 






DC 


X'80' 






DC 


AL3(arg n ) 




IRETURN 


LR 


15, 12 





Figure 21. In-Line Argument List 



GETTING ARGUMENTS FRCM THE ARGUMENT LIST 

The argument list contains addresses for 
the arguments passed to a subprogram. The 
crder of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. Fcr example, when the 
statement 

CALL MYSUB(A,B,C) 

is compiled, the following argument list is 
generated. 



|00000 0C0| 



address for A 



I00000000 
-h 



address for B 



100000001 

L. 



address fcr C 



For purposes of discussion, assume A is a 
double-precision (real*8) variable, B is a 
subprogram name, and C is an array. 

The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
double-precision variable A to location VAR 
in the subprogram. 



For a subprogram reference, an address 
of a storage location is placed in the 
argument list. This storage location is 
the entry point to the subprogram. The 
following instructions can be used to enter 
subprogram B from the subprogram to which B 
is passed as an argument. 



T 

BALR 



15,4(1) 

14,15 



For an array, the address of the first 
variable in the array is placed in the 
argument list. An array [ f or example, a 
three-dimensional array C(3,2,2) ] appears 
in this format in main storage. 

C(1,1,1) C(2,1,1) C(3,1,1) C(1,2,1)— , 



«-C(2,2,1) C(3,2,1) C(1,1,2) C(2,1,2)— , 

, J 

<-C(3,1,2) C(1,2,2) C(2,2,2) C(3,2,2) 

Table 5 shows the general subscript format 
for arrays of 1 , 2, and 3 dimensions. 



Table 5. Dimension and Subscript Format 

i 1 



|Array A 
| 



Subscript Format 



|A(D1) |A(C1*V1+J1) | 

|A(D1,D2) |A (C1*V1 + J1,C2*V2 + J2) | 

|A(D1,D2,D3) |A (C1*V 1+J1,C2*V2 + J2,C3*V3+J3) | 
I . H 

|D1, D2, and D3 are integer constants used| 
|in the DIMENSION statement. CI, C2, C3, | 
|J1, J2, and J3 are integer constants. | 
|V1, V2, and V3 are integer variables. | 

The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance between the variable and the 
first variable in the array, must be 
calculated. The formulas for computing the 
displacement (DISPLC) of a variable for 
one, two, and three dimensional arrays are: 

DISPLC= (CUV1+J1-1) *L 

DISPLC= (C1*V1+J1-1) *L+ (C2*V2 + J2-1) *D1*L 
DISPLC= (CUV1+J1-1) *L + (C2*V2 + J2-1) *D1*L 
+ (C3*V3 + J3-1) *D2*D1*L 

where L is the length of each variable in 
the array. 
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For example, the variable C (2,1,2) in 
the main proqram is to be moved to a 
location ARVAR in the subprogram. Usinq 
the formula for displacement of variables 
in a three-dimensional array, the 
displacement (DISPLC) is calculated to be 
28. The following instructions can be used 
to move the variable: 



I 

L 
L 
ST 



q,8(u 

r, DISPLC 
s,0 (q,r) 
s, ARVAR 



where q, r, and s are general registers, 
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APPENDIX D: SYSTEM DIAGNOSTIC MESSAGES 



This appendix contains a detailed 
description of the diaqnostic messaqes 
produced durinq operation of the Model 44 
Proqramminq System. Messaqes are discussed 
in the followinq order: 

• Supervisor messaqes 

• Job control messaqes 

• Compiler messaqes 

• Linkaqe editor messaqes 

• Phase execution messaqes 



FA10I xxxx CAN'T BE LOADED 

Explanation: xxxx is the name of a 
system routine. The routine is needed 
by a system proqram, but it cannot be 
found or it cannot be loaded because 
of an input/output error on SYSAB1. 
The job is canceled. 



FBOBI OPRTR CNCLED 



Explanation: A "job has been canceled 
by the operator. 



SUPERVISOR MESSAGES 



FB11I CNCL IN CNCL RTN 



Supervisor messaqes may appear at any time 
durinq execution. They are written by the 
supervisor. 



EAOCI ERR LDING MESS WRTR 

Exp lanation: An input/output error 
occurred while the system was loadinq 
its messaqe writer routine. The job 
is canceled. 



FAODI cuu NOT OPERATICNAI 

Explanation : cuu is the physical 
address of an input/output device. An 
input/output operation was requested 
for a data set on a device that is not 
operational. The job is canceled. 



FAOEI cuu SNSE UN CHK 

Explanation : cuu is the physical 
address of an input/output device, 
unit check interruption occurred in 
response to a sense operation on a 
device. The job is canceled. 



FAOFI CUU I/O PROG CHK 

Explanation : cuu is the physical 
address of an input/output device. A 
proqram check occurred durinq 
execution of an input/output 
operation. This may be the result of 
a zero count in a data transmission 
request or an invalid data address. 
The job is canceled. 



Explana tion : A CANCEL was requested 
by the operator while the system was 
executinq the CANCEL routine. 



GA06I PD LST FULL 

LAST SVC PSW xxxxxxxxxxxxxxxx 

Explanation : The x's are replaced by 
the new proqram status word for the 
last supervisor interruption. Too 
many supervisor calls have been issued 
in too short a time. The job is 
canceled. 



GA07I ILLEG CODE - SVC x 

Explanation : x is an invalid code 
that was used in a supervisor call. 
The job is canceled. 



GA08I xxxxxxxx CAN'T BE FTCHD 

Explanation : xxxxxxxx was used as the 
name of a phase. The system cannot 
find any phase with this name in the 
phase library. The job is canceled. 



PROG CHK INT CODE X 
HA02I IN USER PROG CHK RTN 

Explana tion: A proqram check 
developed durinq execution of a user's 
proqram check interruption routine. 
x is the interruption code. The job 
is canceled. 
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PROG CHK INT CODE X 
HA03I USER RTN NOT APPLICABLE 

E xplanati on: x is the proqram check 
interruption code. On interrupt codes 
1 throuqh 5 # no user proqram check 
routine is entered. The job is 
can cele d . 



IA02I - Name field. An invalid name has 
been specified. It may not be 
appropriate for the statement, as 
when somethinq other than a 
symbolic unit name is specified 
in the name field of an ALLOC or 
ACCESS statement. The job is 
canceled . 



PROG CHK INT CODE X 
HA04I NO USER RTN SPECIFIED 

E xp lanation : x is the prcqram check 
interruption code. There is no user 

nrortTam rtitrlr rnnti ne crori f i crl + r* 
I -> "•• — ••- •- -~~~ — «. ~ ~ r ~~—^ — v. « . 

handle this type of proqram check. 
The job is canceled. 



PROG CHK INT CODE X 
HA05I PSW - xxxxxxxxxxxxxxxx IN SPVSR STATE 

Explanatio n: x is the proqram check 



;ode ani 



sr x's 



LJ-C LC^IQ^CU U y 

a proqram status word. A proqram 
check occurred in the supervisor 
state. The PSW is the last problem 
proqram PSW. The job is canceled. 



JAOAI JOB CANCELLED 

Exp l anation: A job has been canceled. 
Another messaqe usually appears qivinq 
the reason for the cancellation. 



JOB CONTROL MESSAGES 

Messaqes written by the job control 
processor are distinquished by the initial 
characters IA. 

These messaqes are written en SYSLST. 
In the followinq listinq, they are qrouped 
by type. Each group shares a common text 
message, but the identification code 
differs to indicate the source of the error 
condition. 

The messaqes are as follows: 

IAxxx STMNT FMT ERR 

Messaqes IA01I throuqh IA09I indicate an 
error in the text of a job control 
statement. The xxx portion identifies the 
problem area more specifically, as follows: 

IA01I - Identification field. The first 
two columns do net contain the 
proper characters for a job 
control statement. The job is 
canceled. 



TA03I ~ Operation fields The system does 
not recoqnize the operation 
specified. The job is canceled. 

IA04I - Operand field. A required 

parameter is missinq. The job is 

r"a n f d 1 &r\ 

IA05I - Operand delimiter. An improper 
character has been used as a 
delimiter. The job is canceled. 

IA06I - Field size or count. A parameter 
in the operand field is too lonq, 
or specifies an unacceptable 
size, or unere are 1.00 many 
characters within a pair of 
parentheses. The job is 
canceled . 

IA07I - Operand field. The operand field 
contains a parameter that cannot 
be recoqnized or that should not 
be used in this statement. The 
job is canceled. 

IA08I - Continuation error. The first 
two columns of a continuation 
statement do not contain the // 
characters, information starts 
before column 16, or a 
continuation statement is 
reguired but column 72 is not 
punched. The job is canceled. 

IA09I - VPS field. The VPS field of an 
EXEC statement contains an 
invalid entry, or a VPS settinq 
has been specified for a system 
that is not equipped with this 
facility. The job continues, but 
the parameter is iqnored. 

IAxxx STMNT SEQ ERR 

Messaqes IA11I throuqh IA17I indicate 
improper use of a job control statement. 
The xxx portion identifies the specific 
problem, as follows: 

IA11I - A LABEL statement was misused. 
For a unit record data set or a 
tape data set, the LABEL 
statement did not follow an 
ACCESS or ALLOC statement. For a 
direct access data set, it did 
not follow an ALLOC statement. 
Otherwise, it appeared in an 
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invalid place in the job deck. 
The job is canceled. 



IA12I - An ALLOC statement for a direct 
access data set was not followed 
by a LABEL statement. The job is 
canceled. 



IA13I - The system read a // statement 

that was not a JOB statement and 
was not preceded by a JOB 
statement. The job is canceled. 

IA14I - The phase name field of an EXEC 
statement is blank and the job 
step does not immediately follow 
a successful linkage editor job 
step, or the linJtaqe editor 
reported an error severity level 
of 12. The jot is canceled. 

IA15I - A DELETE, CONDENSE, or RENAME 
statement refers to a data set 
that was not cited in an ACCESS 
or ALLOC statement previously in 
the job. The statement is 
iqnored. 

IA16I - A data set or symbolic unit 

referred to in the SAME=parameter 
field of a LABEL statement was 
not defined previously in the job 
nor is it a system data set. The 
job is canceled. 

IA17I - An invalid statement appears 

amonq the job control statements 
or an EXEC statement is missinq. 
Job control skips to the next 
recoqnizable job control 
statement. 

IAXXX VCL REQ ERR 

Messaqes IA21I throuqh IA28I apply to 
volumes reguested in ALLOC or ACCESS 
statements. 

IA21T - The system has no record of the 
volume or device referred to. 
The job is canceled. 

IA22I - A request for a particular type 
of device cannot be satisfied. 
Not enouqh devices of this type 
are available. The job is 
canceled. 

IA23I - The volume field of an ACCESS or 
ALLOC statement contains an entry 
that cannot be resolved. The job 
is canceled. 

IA25I - An attempt has been made to 
remove the system residence 
volume. The job is canceled. 



IA26I - A statement has requested 

assiqnment of a device that is 
not operational. The job is 
canceled . 



IA27I - The volume field of an ACCESS or 
ALLOC statement specifies the 
address of a device that was 
assiqned to another data set 
previously in the same job step. 
The job is canceled. 



IA28I - A job control maintenance 

statement has been detected for a 
data set on a volume that is not 
mounted. The statement is 
iqnored. 



nCMIMP UBD 



Messaqes IA31T throuqh IA38I apply to the 
names of data sets and members. The name 
causinq the condition is printed with the 
messaqe. 

IA31I - The required data set cannot be 
found in the volume specified. 
The job is canceled. 

IA32I - The required member cannot be 

found in the data set specified. 
The job is canceled, unless the 
condition is encountered while 
processinq a DELETE request for a 
member, in which case the request 
is iqnored. 

IA33I - The data set named cannot be 

found in the system cataloq. The 
action requested for the data set 
is not performed. 

IA34I - The name specified for a data set 
duplicates the name of a data set 
that is already on the same 
volume. The job is canceled. 

IA35T - The name of a member in a 

directoried data set duplicates 
another name already in the 
directory. The job is canceled. 

IA36I - A data set name duplicates 
another name in the system 
cataloq. The job is canceled. 

IA37I - The block lenqth requested for 

the data set is too larqe for the 
device. The job is canceled. 

IA38I - An attempt has been made to close 
a new member of a directoried 
data set, but the member was never 
written. 
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IA41I INSUFF SP xxxxxx 

Explanation: xxxxxx is a volume 
identification number. This message 
indicates there is not enouqh room on 
a disk volume to permit a requested 
operation. The job is canceled. 



IAU2I INSpFF SP xxxxxx 

Explanation: xxxxxx is the volume 
identification number of a disk vclume 
whose volume table of contents is 
full. No new darta sets can be added 
to the volume until seme of those 
already on it are deleted or, if there 
is vacant space on the disk, the 
volume table of contents is enlarqed 
throuqh reinitialization. The jot is 
canceled. 



be handled at the installation, 
job is canceled. 



The 



1ADU1 



&t)« EUd 



Explanation; The job did not include 
a /& (end-of-job) statement. The job 
is canceled. 



IA55I hhmmss 



Explanation^ This messaqe, appearinq 
after a JOB statement, qives the time 
that the execution of the job started, 
expressed in hours, minutes and 
seconds. 



IA43I INSUFF SP xxxxxxxx 

Expla nation : xxxxxxxx is the name of 
a directoried data set whose directpry 
is full. No new members can be added 
until some directory entries are 
deleted. The job is canceled. 



IA44I INSUFF SP xxxxxxxx 

Explanation : xxxxxxxx is the name of 
a directoried data set in which there 
is not enouqh room to add another 
member, or it is the name of a data 
set of any type in which there is not 
enouqh room to write another blcck of 
data*. The job is canceled. 



IA45I INSUFF SP CATLG 

Explanation : There is not enouqh 
space in the system catalcq to add 
another entry. The job is canceled. 



IAU6I INSUFF SP JOBTABLE 

Explanation: The job control 
processor's workinq space is full. 
The job is canceled. Either the size 
of the job must be reduced or the size 
of the system's SDSPAS data set must 
be increased before the next run. 



IA58I CUU RW RR RN PW PR PN 



IA59I xxx 



XX 



Explanation: 
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IA61I NEW NAME NOT CAT 

Explana tion: A renamed data set 
cannot be cataloqed. The name has 
been chanqed, as specified in a RENAME 
statement, but the new name cannot be 
entered in the system cataloq. 



IA62I SYSERR 

Explanation: An unrecoverable system 
error has occurred. The operator must 
reinitiate the initial proqram lpadinq 
procedure. 



IA47I INSUFF SP FCB 

E xplanation : The system does not have 
enough space in main storaqe to 
construct a file control block for the 
symbolic unit cit<ed in an ALLOC or 
ACCESS statement. The symbolic unit 
number may exceed the number that can 



IA70I DA FMT ERR xxxxxx 

Explanation: xxxxxx is the volume 
identification number of a volume 
whose volume label is unreadable or in 
an improper format. The volume cannot 
be used by the system until it is 
initialized via a system utility 
proqram. The job is canceled. 
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IA71I DA FMT ERR xxxxxx 



IA79I NO CATLG 



Explanati on: xxxxxx is the volume 
identification number of a volume 
whose volume label has been changed 
during the job. The job is canceled. 



Explanation: A cataloginq request has 
been made but cannot be executed 
because the system does not have a 
cataloq. 



IA72I DA FMT ERR xxxxxx 



Exp lanation: xxxxxx is the volume 
identification number of a volume 
whose volume table of contents is not 
in the proper format. The volume 
cannot be used until it is initialized 
via a system utility program. The job 
is canceled. 



IA73I DA FMT ERR xxxxxxxx 

Explanation: xxxxxxxx is the name of 
a sequential data set for which a 
directoried data set request has been 
made. The job is canceled, unless the 
condition is encountered while 
processing a CONDENSE request, in 
which case the reguest is iqncred. 



IA74I DA FMT EFR xxxxxxxx. 

Explanation : xxxxxxxx is the name of 
a data set being accessed; the format 
1 label for that data set dees not 
contain a block size. The job is 
canceled. 



IA75I DISK I/O ERR 

Explanation; The system's standard 
error recovery procedure has failed. 
The system is unable to write on a 
disk volume during an ACCESS or ALLOC 
operation, either in handling the 
volume table of contents or a data 
set. The job is canceled. 



IA76I DISK I/O ERR 

Explanation : The system's standard 
error recovery procedure failed while 
attempting to recover an input/output 
error during a DELETE operation. The 
job is canceled. 



IA77I DISK I/O ERR. 

Explanation : The standard error 
recovery procedure has failed to read 
or write disk during a CONDENSE 
operation. Processing continues. 



IA82I JC INIT DONE 

Explanation : The system has just 
completed an initial program loading 
procedure . 



IA86I CAUTION JOB TBL FULL 
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IA88I SYSxxx cuu dsname volid 

Explanation: SYSxxx is a symbolic 
unit name, cuu is the unit's physical 
address, dsname is the data set 
associated with the unit, and volid 
identifies the volume containing the 
data set. This format is used by the 
system in responding to a LISTIO 
request. 



IA89I M cuu volid 

Explanation : M is the abbreviation 
for Mount, cuu is a device address, 
and volid is a volume identification 
number. A new volume has just been 
assigned to a disk device. The 
operator can mount the volume to 
prepare for the IA90A message. 



IA90A M ALL REQ DISKS 

Explanation : This message instructs 
the operator to mount all disk volumes 
reguested in preceding IA89I messages. 
When this is done, he signals the 
system to continue processing. 



IA91D VOL xxxxxx UNREADABLE 

Explanation : xxxxxx represents a vol- 
ume identification number. This 
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message appears after an IA90A 
message. It indicates that the system 
is unableto read the volume label of a 
disk that has been mounted. The 
operator can mount another volume, 
instruct the system to ignore the 
volume but continue processing, or 
cancel the iob. 



NA02I LABEL 



Explanation : A statement that should 
be labeled is not. For example, a 
FORMAT statement or a statement 
following a 30 TO statement is not 
labeled. (Condition code -- 4) 



IA92I JCT OFLOW 

Explan ation : A LABEL statement uses 
the SAME parameter, but the reference 
cannot be resolved because the job 
control processor's working space was 
filled earlier in the program. This 
message follows an IA86I message. The 
job is canceled. 

IA93I OPEN ERR SYSxxx 

Explanation: SYSxxx identifies a 
system unit. An error was detected 
while the job control processor was 
opening a data set on the specified 
system unit. The data set is not 
opened, but processing continues. 

IA94I CLOSE ERR SYSxxx 

Explana tion : SYSxxx identifies a 
system unit. An error was detected 
while the job control processor was 
closing a data set on the specified 
system unit. The data set is not 
closed, but processing continues. 



NA03I NAME LENGTH 

Explanation : The name of a variable, 
COMMON block, NAMELIST, or subprogram 
exceeds six characters in length; or 
two variable names appear in an 
expression without a separating 
operation symbol. (Condition 
code — 8) 

NA04I COMMA 

Exp lanation : A comma required in a 
statement does not appear. (Condition 
code — 4) 

NA05I ILLEGAL LABEL 

Expla nat ion : Invalid use of a 
statement label has occurred; for 
example, an attempt has been made to 
branch to the label of a FORMAT 
statement. (Condition code -- 12) 

NA06I DUPLICATE LABEL 

Explanation : The latel appearing in 
the label field of a statement is 
already defined (has appeared in the 
label field of a previous statement) . 
(Condition code -- 12) 



COMPILER MESSAGES 



NA07I ID CONFLICT 



This section contains a list of the 
error/warning messages produced by the 
FORTRAN IV compiler. An explanation of 
each message, including its condition code 
setting, is given. 

The condition code indicates the 
severity of the error. A code of 16 
requires immediate termination of the job. 
A code of 12 causes termination of the job 
step. An 8 code signifies a serious 
condition, but processing continues. A 
code of 4 is a warning message calling the 
programmer's attention to a condition that 
may be an error. 

NA01I ILLEGAL TYPE 

Expl anati on : The variable in an 
Assigned GO TO statement is not an 
integer variable; or, in an assignment 
statement, the variable on the left 
side of the equal sign is of logical 
type and the expression on the right 
side is not. (Condition code — 12) 
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NA08I ALLOCATION 



Expl anation : The storage assignment 
specified by a source statement cannot 
be performed because the use of a 
variable name is either improper or in 
conflict with some prior use of that 
name. For example, a name listed in a 
COMMON block has been listed in 
another COMMON block; or a variable 
listed in an EQUIVALENCE statement is 
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followed by more than seven 
subscripts. (Condition code — 12) 



NA09I ORDER 



E xpl anation : Source statements are 
used in an improper sequence. For 
example, an IMPLICIT statement appears 
as other than the first statement in a 
main program or the second statement 
in a subprogram; or an ENTRY statement 
appears within a DO loop. (Condition 
code — 12) 



NA10I SIZE 



Explanation : A number used in a 
source statement does not conform to 
the values allowed for its use. For 
example, a label used in a statement 
exceeds the maximum value for a 
statement label; or the size 
specification in an Explicit 
Specification statement is not one of 
the acceptable values; or an integer 
constant is too large. (Condition 
code -- 12) 



NA10I SIZE WRN . 

E xpl anation: A non-subscripted array 
initialized with a DATA initialization 
statement is only partially 
initialized. The uninitialized 
elements of the array will contain 
zeros. (Condition code — 4) 



expression in an Arithmetic IF 
statement; or a constant that begins 
with a decimal point does not have a 
digit as its second character. 
(Condition code -- 12) 



NA14I CONVERT 



Ex2lanationj_ In a DATA statement or 
in an Explicit Specification statement 
containing data values, the mode of a 
constant is different from the mode of 
the variable with which the constant 
is associated. The constant is 
converted to the correct mode by the 
compiler; this message is simply a 
notification to the programmer that 
the conversion is performed. 
(Condition code -- 4) 



NA15I NO END CARD 

E xplanation : The set of source 
statements does not contain an END 
statement. (Condition code — 4) 



NA16I ILLEGAL STA. 

Expla nation : The context in which a 
statement has been used is invalid. 
For example, the statement "s" in a 
Logical IF statement (the result of 
the true condition) is a Specification 
statement, a DO statement, etc.; or an 
ENTRY statement appears in a main 
program. (Condition code -- 12) 



NA11I UNDIMENSIONED 

E xpla nation : The use of a variable 
name indicates an array (that is, 
subscripts follow the name) , but the 
variable has not been dimensioned. 
(Condition code -- 12) 



NA12I SUBSCRIPT 

Expla na tion: The number of subscripts 
used in an array reference is either 
too large or too small for the array. 
(Condition code -- 12) 



NA13I SYNTAX 

E xpla nation; A statement or part of < 
statement does not conform to the 
FORTRAN IV syntax. For example, a 
statement cannot be identified; or a 
nondigit appears in the label field; 
or fewer than three labels follow the 



NA17I ILLFGAL STA. WRN. 

Expl anation : A RETURN statement 
appears in a main program; or a RETURN 
i statement appears in a FUNCTION 
subprogram. (Condition code — 4) 



NA18I NUMBER ARG 

E xpla na tion : A reference to a library 
subprogram specifies an incorrect 
number of arguments. (Condition 
code — 8) 



NA19I FUNCTION ENTRIES UNDEFINED 

Explana tion : The program being 
compiled is a FUNCTION subprogram, but 
there is no scalar with the same name 
as the FUNCTION nor is there a 
definition for each ENTRY. A list of 
the undefined names follows the 
message. (Condition code -- 4) 



94 System/360 Model 44PS Guide to System Use FORTRAN 



Form C28-6813-2, page modified June 10, 1969, fcy TNL N33-8602 



NA20I COMMON BLOCK/ 



/ERRORS 



E xpla na tion : This message pertains to 
errors that exist in the definitions 
of EQUIVALENCE sets that refer to the 
COMMON area. The message is produced 
when there is a contradiction in the 
allocation specified, when there is an 
attempt to extend the beginning of the 
COMMON area, or if the assignment of 
COMMON storage results in an attempt 
to allocate a variable at a location 
that does not fall on the appropriate 
boundary. The name of the COMMON 
block in error appears between the two 
slashes. A list of the variables that 
could not be allocated because of the 
errors follows the message. 
(Condition code — 8) 



NA25I DUMMY DIMENSION ERRORS 



Exp lana tion : If variables specified 
as dummy array dimensions are not in 
COMMON and are not dummy arguments, 
this message is produced. A list of 
the dummy variables that are in error 



follows the message, 
code — 12) 



(Condition 



NA26I BLOCK DATA PROGRAM ERRORS 

Explana tion : This message is produced 
if variables in the source statements 
have been specified within a BLOCK 
DATA subprogram but have not also been 
defined as COMMON. A list of these 
variables follows the message. 
(Condition code — 4) 



NA21I UNCLOSED DO LOOPS 



Explana tion : This message is produced 
if one or more DO loops are initiated, 
but their terminal statements do not 
exist, or if the terminal statement 
for an outer DO precedes the terminal 
statement for an inner DO (improper 
nesting) . A list of the undefined 
labels that appeared in the DO 
statements follows the message. When 
the message results from improper 
nesting, this list will include the 
labels of incorrectly placed terminal 
statements. (Condition code — 12) 



NA22I UNDEFINED LABELS 

E xpl an ation : Labels used in the set 
of source statements are not defined. 
A list of the undefined labels follows 
the message. (Condition code — 12) 



NA27I PUNCH ERROR, DECK OUTPUT DELETED 

Explana tion : The DECK option was 
specified in the EXEC FORTRAN 
statement, but an unrecoverable error 
has occurred on SYSPCH. The punching 
of the requested deck is terminated. 
(Condition code — 4) 



NA28I SYS000 OUTPUT ERROP, LINK OUTPUT 
DELETED 

Expla nation : The LINK option was 
specified or assumed in the EXEC 
FORTRAN statement, tut an 
unrecoverable output error has 
occurred on SYS000. The writing of 
the module on SYS000 is terminated. 
Compilation continues. (Condition 
code — 12) 



NA29I COMPILER INTERRUPT, COMPILATION EATCH 
TERMINATED 



NA23I EQUIVALENCE ALLOCATION ERRORS 

E xpl anation : This message is produced 
when there is a conflict between two 
EQUIVALENCE groups, or if there is an 
incompatible boundary alignment in an 
EQUIVALENCE group. A list of the 
variables that could not be allocated 
according to source statement 
specifications follows the message. 
(Condition code -- 8) 



NA24I EQUIVALENCE DEFINITION ERRORS 



Ex plana tion : An interruption occurred 
in a phase other than Parse or is of a 
type other than exponent underflow or 
exponent overflow. Compilation is 
terminated. (Condition code — 12) 



NA30I I/O ERROR SYSPSD ON INPUT, LINK 
MODULE DELETED 

Explana tion : An unrecoverable input 
error has occurred on SYSPSD. The job 
is terminated. (Condition code -- 16) 



Ex pl an ati on: This message denotes an 
error in an EQUIVALENCE group when an 
array element is outside the array. A 
list of the errors follows the 
message. (Condition code — 8) 



NA30I I/O ERROR SYSPSD ON OUTPUT, COMPILA- 
TION TERMINATED 

Explanation : An unrecoverable output 
error has occurred on SYSPSD: 
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Compilation terminates. (Condition 
code -- 16) 



NA31I SYSOOC OR SYS001 OPEN ERRCR, COMPILA- 
TION BATCH TERMINATED 

Explanation: An error code is 
returned after opening SYS001 or 
SYSOOO. The job is terminated. 
(Condition code -- 16) 



NA32I MORE THAN 100 COMPI LATI CNS/B ATCH 
NO SYSPSD UPDATE 

Explan ation : This message occurs at 
the end of the 101st compilation of a 
batch. One hundred is the maximum 
number of unique directory entries 
that can be generated for a single 
compilation batch. Compilation is 
terminated. (Condition code — 12) 

NA33I SYS001 READ END OF FILE, COMPILATION 
TERMINATED 

Expl anation : An end-of-file mark was 
erroneously read on SYS001 by the 
compiler as it was reading Polish 
notation. Compilation is terminated. 
(Condition code -- 12) 

NA3UI SYS001 (RSAD)ERROR, COMPILATION TERMI- 
NATED (WRIT) 

E xpla nation : An unrecoverable input 
or output error has occurred on SYS001 
while the compiler was reading Polish 
notation. Compilation is terminated. 
(Condition code -- 12) 

NA35I EXIT ROLL FULL, COMPILATION TERMI- 
NATED 

Explanation: This message is produced 
when the EXIT roll (an internal table 
used by the compiler) has exceeded the 
amount of main storage assigned for 
it. Compilation is terminated. 
(Condition code -- 12) 

NA36I WORK ROLL FULL, COMPILATION TERMI- 
NATED 

Explana tio n: This message is produced 
when the WORK roll (an internal table 
used by the compiler) has exceeded the 
amount of main storage assigned for 
it. Compilation is terminated. 
(Condition code -- 12) 



NA37I NO MORE CORE AVAILABLE, COMPILATION 
TERMINATED 

Ex pla na ti on : This message is produced 
when the program being compiled 



exhausts the supply of main storage 
available to the compiler. (Condition 
code — 12) 



NA38I SYSIPT I/O ERROR, COMPILATION TER- 
MINATED 

Explanation : An input/output error 
occurred while the compiler was 
reading a card from SYSIPT. The job 
is terminated. (Condition code -- 16) 



NA39I SYSOOO Or SYS001 CLOSE ERROR 

Explanation : An error code was 
returned when the system attempted to 
close SYSOOO or SYS001. (Condition 
code — 4) 



NA40I ERROR PRINTING LAST LINE 

Expla natio n : An error occurred on 
SYSOPT when the system attempted to 
write the line preceding this message. 
The system tries to print this warning 
message and to continue. If it cannot 
continue, the job is terminated. 
(Condition code -- 4 or 16) 



LINKAGE E DITOR MESSAGES 

Linkage editor error messages are written 
on SYSLST during the linkage editing job 
step. These messages apply to the ESD, 
TXT, REP, RLD, and END statements produced 
by the language processors and to the 
linkage editor control statements. 

In most cases, an error message is 
accompanied by a listing of the statement 
containing or causing the error. 

Some of the statements reproduced in an 
error listing do not correspond exactly to 
the actual input statement. This is 
because the linkage editor does some 
processing of the statements in the 
statement input area, and some fields have 
been altered by the time an error is 
detected. This applies mainly to the byte 
count, length, and type fields of the ESD 
statement. In no case, however, should 
there be any problem identifying the 
statement. 

For TXT and RLD cards, only the first 36 
columns of the variable field are printed. 
For a REP card eiror, other than a sequence 
error, the error code is printed 
immediately after the REP card listing. 
The notation FOR REP CART) is printed next 
to the error code. 
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Error messages fall into four 2. Severe Errors. These messages are 

categories: written when the linkage editor 

detects errors that would prohibit 
1. Warning Messages. These are produced successful execution of the program, 
to call a programmer's attention to a Linkage editing continues, but its 
condition that may or may not 
represent an error. They do not 
affect continuation of the job step. 
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output is flagged so that it will not 
be accepted for execution. 



Job Step Termination Messages. These 
messages are written when conditions 
develop that reguire immediate 
termination of the linkage editor job 
step. All system data sets are left 
in proper status for subseguent job 
steps in the job. 



Error 

Code 

KA01I 



FA02I 



Conditi on 

A COMMON control section has the 
same name as a regular control 
section, but their lengths 
differ. Space has been 
reserved for the longer. 

Two or more control sections in 
different phases have the same 
name. 



Job Termination Messages. These 
messages are written when conditions 
develop that reguire immediate 
termination of the job. Most of these 
are not the fault of the program, but 
represent an inability of the system 
to continue functioning properly. 



Most of these messages are written in 
the format KAxxI, where KA identifies a 
linkage editor error message, xx represents 
a numeric code identifying a particular 
message, and I means the message is for 
information. A few messages include 
written text, as discussed in the following 
list of numeric codes and their 
corresponding messages. 



The last line of any linkage editor 
listing contains the message LINKAGE EDITOR 
HIGHEST SEVERITY WAS xx, where xx indicates 
the severity level, as follows: 



indicates no significant errors and 
execution of the job may continue. 



FA03I The previous control section had 
a length of 0. If this 
condition is not intentional, 
it could have been caused by aj 
error of the language 
processor. 



KA04I An END card that should indicate 
the length of a control section 
does not. The length of the 
last or only control section in 
the sx LcEuaj. s y in jj o a uictionary 
is 0. This does not represent 
an actual error if the control 
section contains only 
instructions to the language 
processor that do not reguire 
any main storage space. 

KA05I A control section name in a CSECT 
list in an INCLUDE statement is 
duplicated . 

KA06I A job control statement other 

than /* was read. It has been 
saved for processing at the end 
of the job step. 



4 indicates that one or more warning 
messages have been printed, but 
execution may continue. 

12 indicates that the program contains 
errors that prevent its execution. 
The phase or phases fcjeing edited 
are not entered in the phase 
library. In some cases, the jcb 
step is terminated, but the system 
attempts to execute subseguent 
steps in the job. 

16 indicates that a termination 

condition exists, and editing has 
not been completed. No phases have 
been entered in the phase library. 
The job is canceled. 



Warning Me ssages, Severity Level 4 

The following messages are designed solely 
to call a programmer's attention to an 
unusual condition. 



Severe Error Message s, Seve rity Level 12 

The following messages document errors that 
prohibit execution of the program. Linkage 
editing continues. 



Error 

Code 

KA11I 



KA12I 



KA13I 



Condition 

The type field of an ESD 

statement contains an invalid 
entry. This usually represents 
a language processor error. 



A COMMON control section has the 
same name as an entry point. 



A Label Definition type entry in 
an ESD statement does not point 
to a Section Definition or 
Private Code type entry. This 
usually represents a language 
processor error. 
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Error 

Code 

"A14I 



KA15I 



KA16I 



KA18I 



KA19I 



KA35I 



KA36I 



KA37I 



KA38I 



KA39I 



KA40I 



Condi tion 

An oriqm for a control section 

that should te aliqned on a 

double word boundary is not so 

aliqned. This usually 

represents a lanquaqe processor 

error. 

An ESD statement indicates that a 
private code section is named. 
A private code section cannot 
be named. This usually 
represents a languaqe processor 
error. 

An SD, LD, or ER type entry with 
a blank name field is invalid. 
This usually represents a 
languaqe processor error. 



An entry point name improperly 
duplicates another entry point 
or control section name. 



Two or more ESD statements in the 
same input mcdule have the same 
identification number. This 
usually represents a lanquage 
processor error. 



System unit SYS000 or SYSREL. 
contains a statement that is 
either invalid or cut of 
sequence. Module cards must be 
in the order ESD, TXT, RLD, 
REP, and END. 



A MODULE statement was not 
followed by a statement with 
the 12-2-9 leader 
identification punch in its 
first column. 

The linkage editor has read 
beyond the last block of an 
input module. The input deck 
is out of seguence, or an END 
card is missing. 

A statement on SYSIPT is invalid 
or out of seguence. 



A job control statement other 
than the /* (end-of-data) 
statement has been read. The 
/* statement is the only job 
control statement that should 
te read by the linkage editor. 

A hexadecimal field in a PHASE or 
REP card contains an invalid 
character. 



Error 

Code 

KAU1I 



KA42I 



KAU3I 



KA44I 



KA45I 



Condition 

A module contains an ESD identi- 
fication number of or areater 
than 255. Except for REP 
cards, this usually represents 
a language processor error. 



TXT, R 
contai 
number 
ule' s 
ary . 
may re 
proces 
REP ca 
the ES 
to a c 
messaq 
first 
ing th 
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EP, 
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exte 
Exce 
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rd, 
D nu 
ontr 
e is 
TXT 
e er 
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RLD, 
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wri 
or R 
ror 
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eous 



or 
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not 
sym 
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EP c 
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END 
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ngua 
For 
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qe 
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The operand field of a control 
statement extends beyond column 
71; the variable field of a REP 
card extends beyond column 71; 
or the last field in a REP card 
contains a number of characters 
that is not divisible by four. 

An entry point in the external 
symbol dictionary has an ESD 
number that should point to a 
control section, but the con- 
trol section that it points to 
is not in the external symbol 
dictionary. This may represent 
the loss of cards or a lanquaqe 
processor error. This error is 
detected when an END card is 
processed, so the messaqe is 
listed with the END card . 

The CSECT name list of an INCLUDE 
statement contains one or more 
control section names that are 
not in the module. This error 
code is printed with the END 
card since the error cannot be 
detected earlier. In some 
cases, this messaqe is qiven 
because the control section in 
the external symbol dictionary 
was not processed as the result 
of another error condition, 
usually made by a lanquaqe 
processor. In this case, the 
ESD card for the control 
section has been printed with 
another error code. If a phase 
map has been produced, the 
control sections specified in 
the INCLUDE statement that were 
actually included in the phase 
are listed. 
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Error 

Code 

KA46I 



KA47I 



Condition 

An RLD statement contains a 
position pointer to an ESD 
number in the ESD dictionary 
that is not of the SD or PC 
type. This usually represents 
a language processor error. 

An entry in the operand field of 
a linkage editcr control 
statement contains too many 
characters. 



Error 
Code 

KA59I 



K A 6 1 



Conditi on 

The entry point specified in an 
ENTRY statement is not the name 
of a properly defined entry 
point or control section. 

A TXT or REP statement contains a 
load address outside the limits 
of the current phase. This 
usually represents a language 
processor error, when it is in 
a TXT statement. 



KA48I A reguired entry is missing from 
the operand field of a linkage 
editor control statement. 

KA49I A linkage editcr control 

statement contains an invalid 
delimiter, or a reguired 
delimiter is missing. 

KA50T. A decimal field in a PHASE 
statement contains a 
non-decimal character. 



KA61I The program calls for a phase 
size greater than 368,640 
bytes. 

KA62I The control section name field of 
an INCLUDE statement contains 
the names of more than five 
control sections. 

KA63T A specification other than R or L 
appears as the second operand 
of an INCLUDE statement. 



KA51I The third specification in the 
operand field of a PHASE 
statement is invalid. Only 
NOAUTO can be specified in this 
field. 

KA52I A name in a PHASE or MODULE 

statement contains an invalid 
character. 

KA53I Two or more phases in the program 
have the same name. 

KA54I A PHASE statement with an * or S 
origin also has a phase 
gualifier. This is permitted 
only when a control section or 
entry point is specified as the 
ori- gin. 

KA55I A symbol specified in a PHASE 

statement for the origin of the 
phase was not defined 
previously. 

KA56I A PHASE statement specifies a 
negative origin. 

KA57I The END statement for the 

previous phase contains an 
invalid entry in its transfer 
address field. 

KA58I The previous phase contained no 
text. This may occur when the 
linkage editor is unable to 
find the modules named in an 
INCLUDE statement. 



KA64I A module named in an INCLUDE 

statement cannot be found in 
the place indicated by the R or 
L specification. 

KA65I The linkage editor has read a -job 
control statement for the next 
job step and is unable to save 
it in the user communication 
region. When the linkage 
editor reads a job control 
statement at the end of the job 
step, it attempts to save it 
for the job control processor. 
This message is written when 
the attempt to store it in the 
user communication region 
results in an error return. 

KA66I A PHASE statement identifies a 
phase as ROOT but also 
specifies a phase gualifier or 
relocation factor. 



Termination Message s , Seve rity Level 12 or 
16 

The following messages cover input/output 
error conditions so severe that the linkage 
editor cannot continue. The severity 
depends upon which unit experienced the 
error. The linkage editor job step 
terminates when severity 12 conditions 
occur. The entire job is canceled for 
severity 16 conditions. In either case, 
the system prints a message code, the 
message LINKAGE EDITOR CANNOT CONTINUE, 
and, on the next line, a notation of the 
highest severity level encountered in the 
job step. 
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Along with the error messaqe code, the 
system prints a code number that identifies 
the unit experiencing the error. These 
numbers are 2 for SYSAB2, 3 for SYSREL, 6 
for SYSIFT, 7 for SYSLST, 10 for SYSPSD, 16 
for SYS000, and 17 for SYS001. These are 
the units used by the linkage editor. 
Errors on SYSIPT and those en SYSPSD and 
SYS000 when a MODULE card and its 
associated MODULE are being processed have 
a severity level of 16. Fcr others, the 
severity level is 12. 



Error 
Code 

KA90T 



C onditi on 

The linkage editor's control 
dictionary and linkage table 
are full. The program probably 
contains too many control 
sections and entry points. A 
maximum of 2047 control 
dictionary entries is 
permitted. If there is no ROOT 
phase, the maximum is 2048. 



Error 

Code C ondi t ion 

KA80I End of extent was detected during 
a write operation. The output 
data set is not large enouqhk 

KA81I A permanent transmission errcr 
was detected during an 
input/output operation. 

KA82I An input/output operation 

terminated without transmitting 
any data. 

KA83I An input/output operation 
terminated because of an 
invalid command. 



KA91I The program specifies a phase 

name that duplicates the name 
of a phase already resident in 
the phase library. 

KA92I There is not enough room in the 

phase library directory for all 
the phases in this program. 

KA93I The system is unable to open the 
SDS000 or SDS001 data sets. 
The volumes containing these 
data sets may not be mounted, 
symbolic unit SYS000 or SYS001 
may have been reassigned, or an 
error condition may have 
developed during opening. 



KA84I An input/output operation 

terminated with an incorrect 
length condition. 

Job Step Terminat i on Messages, Severit y 
Level 12 



KA95I SYS001 is assigned to a 7-track 
tape without the convert 
feature on; or SYS000 and 
SYS001 are assigned to the same 
data set. 



These messages document conditions that 
require termination of the linkage editor 
job step. The system prints the error code 
and the message LINKAGE EDITOR CANNOT 
CONTINUE. 



Error 

Code 

KA87I 



KA88I 



Condition 

An invalid end-of-extent 

condition was detected while 

reading SYSAB2 or the 

directories en SYSPSD or 

SYSREL. 

No phase can be created because 
there are no entries in the 
SYSPSD directory. This message 
also appears when the entry 
name field contains blanks. 
The EXEC statement name field 
was blank when the module was 
assembled or compiled. 



Job Termination Messages, Severity Level 16 

A job is cancelled when one of the 
following conditions occurs. 



Error 

Code 

KA96I 



KA97I 



Condition 

There is not enough room in the 
SYSPSD directory to list a 
module specified in a MODULE 
statement; or an illegal end of 
extent was encountered while 
reading the last block of the 
directory. The reguested 
module cannot be included in 
the program. 

The system is unable to close 
SYS000 or SYS001. This indi 
cates that a system error 
condition developed during the 
job step. 
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Text Mes sages 

The following messages are written by the 
linkage editor. In some cases, as 
indicated, the phase output is flagged so 
that it cannot be executed, but linkage 
editing is not interrupted. 

KA70I XXXX ILLEGAL OPTION FOR LINKAGE EDI- 
TOR 

Expla natio n : This message appears 
when the EXEC LNKEDT statement 
contains an invalid parameter. The 
xxxx field is replaced with the 
incorrect parameters. 

KA71I XXXX UNRESOLVED ADDRESS CONSTANTS 



Exp lanati 
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KA72I xxxx ADDRESS CONSTANTS OUTSIDE LIMITS 
OF PHASE 

Explanatio n: This message is written 
when the program contains address 
constants with load addresses 
referring to points outside the limits 
of the phase that contains the address 
constant. The xxx field is replaced 
with the number of such address 
constants. This condition usually 
represents a language processor error. 
The phase output is flagged so it 
cannot be executed. 

The following messages are written only 
if the MAP option has been specified in the 
EXEC LNKEDT statement. They are warning 
messages and do not prevent linkage editing 
or execution. 

ROOT PHASE OVERLAID EY ANCTHER PHASE 

Explanation: The program specifies a 
phase origin that would overlay all or 
part of a phase that has been 
designated a root phase. The phase 
that causes the overlay condition is 
marked by the word CVEROOT in the 
listing. 

POSSIBLE INVALID ENTRY POINT DUPLICATICN IN 
INPUT 

Explanation: The input contains 
possible duplication of entry point 
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PHASE EXECUTION DIAG NOSTI C MES SAGE S 

During phase execution, three types of 
diagnostic messages are produced: 

• Execution error messages. 

• Program interrupt messages. 

• Operator messages. 

Execution Er ror Messages 

In the following text, the error codes are 
given with an explanation describing the 
type of error. Preceding the explanation, 
an abbreviated name is given indicating the 
origin of the error. Unless specified 
otherwise, a condition code of 12 is 
generated and the job step is terminated. 

The abbreviated name for the origin of 
the error is: 

IBC - BOAFCOMH routine (performs 

interruption, conversion, and error 
procedures^ = 

FIOCS - BOAFIOCS routine (performs 

input/output operations for FORTRAN 
phase execution) . 

NAMEL - BOANAMEL routine (performs the 
processing of NAMELIST specifi- 
cations) . 

DIOCS - BOADIOCS routine (performs 

direct-access input/output operations 
for FORTRAN phase execution) . 

LIB - FORTRAN-supplied library. In the 
explanation of the messages, the 
module name is given followed by the 
entry point name(s) enclosed in 
parentheses. 

OA200I 

Explanation: FIOCS — An attempt was 
made to- read from a data set for which 
input operations are not allowed. 
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OA201I 



OA210I 



Explanatio n: FIOCS -- An attempt was 
made to write into a data set for 
which output operations are not 
allowed. 



OA20 2I 



Explanation : FIOCS — A READ or WRITE 
operation was attempted on a data set 
whose most recent operation resulted 
from an ENDFILE statement. 



Explanation: IBC -- Program 
Interrupt. See "Proqram Interrupt 
Messages", later in this chapter. 



0A21 11 



Explanation: IBC — An invalid 
character has been detected in a 
FORMAT statement. 



0A212I 



OA203I 



Explanation: FIOCS — An attempt was 
made to rewind, backspace, or write an 
end-of-file mark on cne of the system 
units SYSOPT, SYSPCH, or SYSIPT. 



OA204I 



Exp lanation: FIOCS — An attempt was 
made to rewind, backspace, cr write an 
end-of-file mark on a data set 
described by a DEFINE FILE statement. 



OA205I 



Explanation: FIOCS — A data set 
reference number outside the unit 
table range (i.e., less than 1 or 
greater than 15) has been used in an 
input/output statement. The unit 
table contains the data set reference 
numbers and symbolic unit names shown 
in Table 2 in the chapter "Data Sets." 



OA206I 



Expla nation : FIOCS -- An attempt was 
made to open a data set, but the data 
set could not be found. This message 
appears when a data set reference 
number not valid for the installation 
has been used in an input/output 
statement. 



Explanation : IBC -- An attempt has 
been made 

a. to read or write, under FORMAT 
control, a record that exceeds the 
I/O buffer length (360 bytes) . 

b. to write, under FORMAT control, a 
record that exceeds the maximum 
record size allowed on the I/O 
medium (80 characters for a 
punched card, line length for a 
printed line) . 



0A213I 



Explanation: IBC — The input list in 
an input/output statement without a 
FORMAT specification is larger than 
the logical record. 



OA215I 



Explanation: IBC -- An invalid 
character exists for the decimal input 
corresponding to an I, E, F, or D 
format code. 



OA216I 



Explanation : IBC -- An invalid sense- 
light number was detected in the 
argument list in a call to the SLITE 
or SLITET subprogram. 



OA217I 



OA207I 



Explanation : FIOCS — A label error 
was detected when a data set was 
opened. The condition code is 4. 



OA208I 



E xplanation: IEC -- An end-of-data 
condition was sensed during a READ 
operation or an end-of-extent 
condition was detected during a WRITE 
operation. 



OA218I 



Explanation: FIOCS -- An input/output 
request has been made that is invalid 
for a data set. 



Explanation: IBC — A permanent 
input/output error has been 
encountered . 



OA209I 



OA219I 



Explanation : IBC -- There is 
insufficient main storage to allocate 
one reguest control block and one 
360-byte buffer. 



Explanation : IBC -- A boundary error 
has occurred but the boundary 
alignment routine could not be found 
in the phase library. 
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CA220I 



Explanation: IBC — A boundary error 
has occurred but there is not enough 

SO ace in. !T. P. in stgrana fnr + 

alignment routine to be loaded. 



j^v/ >a 11 vj. U.i- 



OA221I 



Explanation : NAMEL -- An input 
variable name exceeds eight 
Ciiarac uers . 



exceeds the corresponding dimension 
bound. 



Wil <£ J Ul 



Explanation : DIOCS — An I/O error 
was detected while attempting to close 
a direct access data set. The 
condition code is 8. 



CA231I 



0A222I 



E xpla nation: NAMEL -- An input 
variable name is not in the NAMELIST 
dictionary, or an array is specified 
with an insufficient amount of data. 



OA223I 



Explanation : NAMEL — An input 
variable name or a subscript has no 
delimiter. 



0A224I 

Explanation; 



NAMEL -- A subscript is 



encountered after an undimensioned 
input name. 



OA225I 



E xplanation : DIOCS — Direct- access 
input/output statements are used for a 
sequential data set. 



OA232I 



Explanation: DIOCS — The relative 
position of a record is not a positive 
integer, or the relative position 
exceeds the number of records in the 
data set. 



OA233I 



Expla nation : DIOCS — The record 
length specified in the DEFINE FILE 
statement exceeds the physical 
limitation of available main storage. 



CA234I 



E xpla nation: IBC — An invalid 
character is encountered on input for 
the Z format code. 



0A226I 



E xplanation: LIB — In the subroutine 
BOAOVLY (0VLY#) , the phase name used 
in the CALL LOAD or CALL LINK 
statement can not be found in the 
phase library. The phase name must be 
enclosed in single quotes. 



0A227I 



Explana tion : DIOCS — Direct access 
input/output statements have been used 
for one of the system units SYSIPT, 
SYSPCH, or SYSOPT. 



CA235I 



Explanation: DIOCS — A data set 
referred to in a direct access 
input/output statement was not 
previously described in a DEFINE FILE 
statement. 



CA236I 



Ex pla na tion: LIB — In the subroutine 
BOAOVLY (OVLY#) , a CALL LOAD or CALL 
LINK statement has loaded a phase 
which overlays input/output storage 
(RCB and buffer) . 



OA228I 



Explanation : NAMEL — The number of 
subscript quantities in a subscripted 
NAMELIST array name differs from the 
number of dimensions for that array. 



OA229I 



Explanation: NAMEL — NAMELIST input 
data contains a subscripted array name 
with a subscript quantity having a 
negative or zero value or a value that 



Explana tion : DIOCS — A data set 
reference number used in a DEFINE FILE 
statement has no corresponding 
symbolic unit. 



0A237I 



Ex planation : DIOCS — Error on a 
POINT operation which can be caused by 
trying to POINT within a non-formatted 
direct-access data set. 



0A241I 



Expl a nation : LIB — For an 
exponentiation operation (i**j) in the 
subprogram BOAFIXPI (FIXPIf) where i 
and j represent integer variables or 
integer constants, the value of i is 
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zero and the value of j is less than 
or equal to zero. 



OA242I 



Explanation : LIB -- For an 
exponentiation operation (r**j) in the 
subprogram BOAFRXPI (FRXPI#), where r 
represents a real*4 variable or 
integer constant, the value of r is 
zero and the value of j is less than 
or equal to zero. 



OA243I 



E xpla nati on : LIB — For an 
exponentiation operation (d**j) in the 
subprogram BOAFDXPI (FDXPHI) , where d 
represents a real*8 variable or real*8 
constant and j represents an integer 
variable or integer constant, the 
value of d is zero and the value of j 
is less than or equal to zero. 



0A244I 



E xpl anation : LIB — For an 
exponentiation operation (r**s) in the 
subprogram BOAFRXPR (FRXPR#) , where r 
and s represent real*4 variables or 
real*4 constants, the value of r is 
zero and the value of s is less than 
or equal to zero. 



OA245I 



E xpla nation: LIB — For an 
exponentiation operation (d**p) in the 
subprogram BOAFDXPD (FDXPDt) , where d 
and p represent real*8 variables or 
real*8 constants, the value of d is 
zero and the value of p is less than 
or equal to zero . 



OA246I 



Explanation: LIB — For an 
exponentiation operation (z**j) in the 
subprogram BOAFCXPI (FXCPIt) , where z 
represents a complex*8 variable or 
integer constant, the value of z is 
zero and the value of j is less than 
or equal to zero. 



0A247I 



Expl anation : LIB — For an 
exponentiation operation (z**j) in the 
subprogram BOAFCDXI (FCDXI#) , where z 
represents a complex*16 variable or 
complex*16 constant and j represents 
an integer variable or integer 
constant, the value of z is zero and 
the value of j is less than or equal 
to zero. 



Explanation : LIB -- In the subprogram 
BOASSQRT (SQRT) , the value of the 
argument is less than zero. 



OA252I 



Explanation : LIB -- In the subprogram 
EOASFXP (EXP), the value of the 
argument is greater than 174. 673. 



OA253I 



Explana tion : LIB — In the subprogram 
BCASLCG (ALOG and ALOG10), the value 
of the argument is less than or equal 
to zero. Because this subprogram is 
called by an exponential subprogram, 
this message also indicates that an 
attempt has been made to raise a 
negative base to a real power. 



0A254I 



E xplanation : LIB — In the subprogram 
BOASSCN (SIN and COS), the absolute 
value of an argument is greater than 
or equal to 2 18 * 
(218 = .82354966406249996D+06) 



OA255I 



Explanation : LIB -- In the subprogram 
B0ASATN2, when entry name ATAN2 is 
used, the value of both arguments is 
zero. 



CA256I 



Explana tion : LIB — In the subprogram 
BOASSCNH (SINH or COSH) , the value of 
the argument is greater than or equal 
to 174.673. 



OA257I 



Ex planation : LIB — In the subprogram 
BCASASCN (ARCSIN or ARCOS) , the 
absolute value of the argument is 
greater than one. 



CA258I 



Exp l ana tion : LIB -- In the subprogram 
BOASTNCT (TAN or COTAN) , the absolute 
value of the argument is greater than 
or equal to 2 18 . 
(218 = .82354966406249996D+06) 



OA259I 



OA251I 



Expl an ation : LIB -- In the subprogram 
BOASTNCT (TAN or COTAN) , the value of 
the argument is too close to one of 
the singularities ( /2, 3 /2, ... for 
the tangent; , 2 , ... for the 
cotangent) . 
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0A261I OA263I 

Ex planation : LIB — In the subprogram 

BOALSQRT (DSQRT) , the value of the Expl anation : LIB — In the subprogram 

argument is less than zero. BCALLOG (DLOG and CLOG10), the value 

of the argument is less than or egual 
OA262I to zero. Because the subprogram is 

called by an exponential subprogram, 
Explan ati on: LIB — In the subprogram this message also indicates that an 
BOALEXP (DEXp) , the value of the attempt has been made to raise a 

argument is greater than 174.673. negative base to a real power. 
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0A264I 



OA274I 



Exp lanation: LIB -- In the subproqram 
B0AL5CN (DSIN and DCOS) , the absolute 
value of the argument is qreater than 
or equal to 2 50 . 
(2 50 = , 35371 1887378C2239D+16) 



Explanation: LIB -- In the subproqram 
BOACSSCN (CSiN or CC05) , the absolute 
value of the real part of the arqument 
is qreater than or equal to 2 18 . 
(218 = .82354966406249996D+06) 



OA265I 



OA275I 



Explanation: LIB — In the subproqram 
BCALATN2, when entry name DATAN2 is 
used, the value of both arquments is 
zero. 



Explanatio n: LIB — In the subproqram 
BOACSSCN (CSIN or CCOS), the absolute 
value of the imaqinary part of the 
arqument is qreater than 174.673. 



OA266I 



OA281I 



Expl anatio n: LIB -- In the subproqram 
BCALSCNH (DSINH or ECCSH) , the 
absolute value of the arqument is 
qreater than or equal to 174.673. 



Explanation : LIB -- In the subproqram 
BOACLEXP (CDEXP) , the value of the 
real part of the arqument is qreater 
than 174.673. 



OA267I 



OA282I 



Explanatio n : LIB -- In the subproqram 
BOALASCN (DAESIN or CARCOS) , the 
absolute value of the arqument is 
qreater than one. 



OA268I 



Explanation: LIB -- In the subproqram 
BOALTNCT (DTAN or DCCTAN) , the 
absolute value of the arqument is 
qreater than or equal to 2 50 . 
(2 5 ° = .353711887378C2239D+16) 



Explanation: LIB -- In the subproqram 
EOACLEXP (CDEXP) , the absolute value 
of the imaqinary part of the arqument 
is qreater than or equal to 2 50 . 
(250 = .35371188737802239D+16) 



OA283I 



Explanation: LIB -- In the subproqram 
BOACLLOG (CDLOG),, the value of both 
the real and imaqinary parts of the 
arqument is zero. 



OA269I 



OA284I 



Explanation: LIB — In the subproqram 
IHCLTNCT (DTAN or DCOTAN) , the value 
of the arqument is too close to one of 
the sinqularities ( /2, 3 /2, . . . for 
the tanqent; , 2 , ... for the 
cotanqent) . 



Explanation : LIB -- In the subproqram 
BOACLSCN (CDSIN or CDCOS) , the 
absolute value of the real part of the 
arqument is qreater than or equal to 
2 50 . 
(2 5 ° = .35371188737802239D+16) 



0A271I 



OA285I 



Explanation : LIB — In the subproqram 
BOACSEXP (CEXP) , the value of the real 
part of the arqument is qreater than 
174.673. 



0A272I 



Explan ation: LIB -- In the subproqram 
BOACSEXP (CEXP) , the absolute value of 
the imaginary part of the arqument is 
greater than or equal to 2 18 . 
(218 = .82354966406249996D+06) 



Explanation: LIB — In the subproqram 
BOACLSCN (CDSIN or CDCOS) , the 
absolute value of the imaqinary part 
of the arqument is qreater than 
174.673. 



OA290I 



Explanation: LIB — In the subproqram 
BOASGAMA (GAMMA), the value of the 
arqument is outside the valid ranqe. 
(Valid ranqe: 2-252< x <57. 5744) 



OA273I 



OA291I 



Explanation : LIB -- Tn the subproqram 
BOACSLOG (CLOG) , the value cf both the 
real and imaqinary parts of the 
arqument is zero. 



Explanation : LIB — In the subproqram 
BOASGAMA (ALGAMA) , the value of the 
arqument is outside the valid ranqe. 
(Valid ranqe: 0<x<4. 2937x1 O 7 *) 
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OA210I PROGRAM INTEPRUPT( ) - OLD PSW IS xxxxxxx 



CONTAINED xxxxxxxxxxxxxxxx 






xxxxxxxx REGISTER 



Figure 22. Proqram Interrupt Message 



OA300I 



Explanation : LIB -- In the subprogram 
BOALGAMA (DGAMMA) , the value of the 
argument is outside the valid ranqe. 
(Valid range: 2~252< x <57 . 5744) 



OA30 1I 



Explanation: LIB -- In the subprogram 
BOALGAMA (DLGAMA) , the value of the 
argument is outside the valid range. 
(Valid range: 0<x<4. 2937x1 0? 3 ) 



Program Interrupt Messages 

A program interrupt message containing the 
old Program Status Word (PSW) is produced 
on SYSLST when one of the following 
exceptions occurs: 

• Specification Exception (6) 

• Fixed-Point Divide Exception (9) 

• Exponent-Overflow Exception (C) 

• Exponent-Underflow Exception (D) 

• Floating-Point Divide Exception (F) 

Operator intervention is not required 
for any of these interruptions, and 
execution is not terminated. Figure 22 
shows the interruption message format. 

The five characters in the PSW (i.e., 6, 
9, C, D, or F) represent the code number 
(in hexadecimal) associated with the type 
of interruption. The last portion of the 
message shows the contents of the results 
register when an exponent overflow or 
underflow exception occurs. This is 
discussed further later in this chapter. 

Specification Exception : The specification 
exception, assigned code number 6, is 
recognized whenever a data address does not 
specify an integral boundary for that unit 
of information. A specification error 
would occur, for example, during the 
execution of the following program segment: 

DOUBLE-PRECISION D,E 
COMMON A,B,C 



EQUIVALENCE (B,D) 
D = 3.0D02 



Fixed- Point-Pi vid e E xcepti on: The fixed- 
point-divide exception, assigned code 
number 9, is recoqnized whenever division 
of a fixed-point number by zero is 
attempted. A fixed-point-divide exception 
would occur during execution of the 
following statements: 



J = 

1 = 7 
K = I/J 



Exponent-Overflow E x ceptio n : Th e 
exponent-overflow exception, assigned code 
number C, is recoqnized whenever the result 
of a floatinq-point addition, subtraction, 
multiplication, or division is qreater than 
or equal to 16 63 (approximately 7.2 x 
10 75 ) . For example, an exponent-overflow 
exception would occur during execution of 
the statement: 

A = 1.0E+75 + 7.2E+75 

When the interruption occurs, the result 
reqister contains a floatinq-point number 
whose fraction and siqn are correct. The 
characteristic no lonqer reflects the true 
exponent, however, and the number is not 
usable. The floatinq-point number is 
printed at the end of the proqram interrupt 
messaqe in hexadecimal notation. 

With exponent overflow, the 
characteristic represents an exponent that 
is 128 smaller than the correct one. 
Treatinq the characteristic, bits 1 to 7 of 
the number, as a binary, inteqer, the true 
exponent (TE) may be computed as follows: 



TE = (Bits 1 to 7) 



128 - 64 



Before proqram execution continues, the 
FORTRAN library sets the result reqister to 
the larqest possible floatinq point number 
that can be represented in short precision 
(16 63 * (1-1 6~ 6 ) ) or in lonq precision 
(16 63 * (1-16-1*) ) . T he siqn of the result 
is not chanqed, and the condition code is 
not altered^ 
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Exponent-Underflow Exception ; The 
exponent-underflow exception, assigned code 
number D, is recognized whenever the result 
of a floating-point addition, subtraction, 
multiplication, or division is less than 
16 -65 (approximately 5.4x1G- 79 ). An 
exponent-underflow exception would occur 
during execution of the statement: 



The message for a PAUSE can be one of 
the forms: 

PAUSE n 

pause ~ message ; 

PAUSE 

where : 



A = 3.2E-40*5.4E-50 

When the interruption occurs, the result 
register contains a floating-point number 
whose fraction and sign are correct. The 
characteristic no longer reflects the true 
exponent, and the number is not usable. 
This floating-point number is printed at 
the end cf the program interrupt message in 
hexadecimal notation. 

With exponent underflow, the 
characteristic represents an exponent that 
is 128 larger than the correct one. 
Treating the characteristic, bits 1 to 7 of 
the number, as a binary integer, the true 
exponent (TE) may be computed as follows: 

TE = (Bits 1 to 7) - 128 - 64 

Before program execution continues, the 
FORTRAN library sets the result register to 
a true zero of correct precision. If a 
floating-point addition or subtraction 
caused the interrupt, the condition code is 
set to zero. 

Floating -P oint-Divide Exception : The 
floating-point-divide exception, assigned 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. A floating-point-divide 
exception would occur during execution of 
the following statements: 

B = 0.0 
A = 1.0 

C = A/B 



Operator Messages 

Operator messages for STOP and PAUSE are 
generated during phase execution. 



n is the 1- through 5-digit 
unsigned integer constant 
specified in a pause 
source statement 

message is the literal constant 
specified in a PAUSE 
source statement 

is printed when a PAUSE 
statement that does not 
specify an inteqer or 
literal constant is 
executed 



Explanation : The programmer should give 
instructions that indicate the action to be 
taken by the operator when the PAUSE is 
encountered. 

User Response : To resume execution, the 
operator presses the EOB key on the console 
keyboard. 

The message for a STOP statement can be 
one of the forms: 

STOP n 
STOP 

where: 

n is the 1- through 5-digit 
unsigned integer constant 
specified in a STOP source 
statement 

is printed when a STOP 
statement that does not 
specify an integer 
constant is executed 



User Response ? None 
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PHASE statement 24 

format 61 

phase, definition of 8 

placing ACCESS and ALLOC statements in the 

job deck 19 

placinq module decks in the input stream... 23 
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ACCESS statements 3 6 

ALLOC statement 41 
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volume labels 

disk 17 

tape. 15 

volume serial number 15 

volume table of contents... » .....17 

VTOC. . . , 17 

WRITE statement , 69 

write validity checking .....17,18,19 

writing an array- » . 69 



:ndex 



m 




Technical Newsletter 



File No. S3 6 0-25 

Re: Form No. C28-6813-2 

This Newsletter No. N33-8602 
Date: June 10, 1969 

Previous Newsletter Nos. None 



This Technical Newsletter, a part of release 6 of IBM System/360 
Model 44 Programming System, provides replacement pages for 
IBM System/360 Model 44 PS, Guide to System Use for FORTRAN 
Programmers , Form C28-6813-2. These replacement pages remain 
in effect for subsequent releases unless specifically altered. 
Pages to be inserted and/or removed are listed below. 

21-24, 24.1 
61-64 
71,72 
75,76 
81,82 

93-96, 96.1 
103,104, 104.1 

A change to the text or a small change to an illustration is 
indicated by a vertical line to the left of the change; a 
changed or added illustration is denoted by the symbol • to 
the left of the caption. 



Summary of Amendments 

1. Addition of three execution error messages. 

2. Addition of a new compiler message. 

3. Addition of format of CALL DUMP and CALL PDUMP statements. 

4. Minor corrections to the text. 



File this cover letter at the back of the manual to provide a 
record of changes. 



IBM Laboratory, Publications Dept., Uithoorn Netherlands 



PRINTED IN U.S.A. 



READER'S COMMENT FORM 

IBM System/360 Model 44 Form C28-6813-2 

Programming System 
Guide to System Use for 
FORTRAN Programmers 

• How did you use this publication? 

As a reference source □ 

As a classroom text □ 

As a self-study text □ 

• Based on your own experience, rate this publication . . . 

As a reference source: 



Very Good Fair Poor Very 

Good Poor 



As a text: 

Very Good Fair Poor Very 

Good Poor 



• What is your occupation? 



• We would appreciate your other comments; please give specific page and line references 
where appropriate. If you wish a reply, be sure to include your name and address. 



• Thank you for your cooperation. No postage necessary if mailed in the U.S.A. 



C 28-681 3-2 



YOUR COMMENTS PLEASE . . . 

This SRL bulletin is one of a series which serves as reference sources for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by the persons responsible for writing and publishing this 
material. All comments and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in utilizing your IBM sys- 
tem should be directed to your IBM representative or to the IBM sales office serving your 
locality. 



Fold 



Fold 



FIRST CLASS 

PERMIT NO. 1359 

WHITE PLAINS, N. Y. 



BUSINESS REPLY MAIL 

NO POSTAGE NECESSARY IF MAILED IN THE UNITED STATES 



POSTAGE WILL BE PAID BY . . 

IBM Corporation 
1 1 2 East Post Road 
White Plains, N. Y. 10601 



Attention: Department 813 







Fold 



Fold 



O 



International Business Machines Corporation 
Data Processing Division 
112 East Post Road, White Plains, NY. 10601 
[USA Only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

[International] 



C 28-68 13-2 



EI 



International Business Machines Corporation 
Data Processing Division 
112 East Post Road, White Plains, NY. 10601 
[USA Only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New Yorkl0017 

[International] 



